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An  Idealized  stonily  state  model  of  n stream  of  energetic  electrons 
limit  rn  1 1 zed  by  u reverse  current  In  t bo  pre-flare  solar  plasma  ts 
developed.  Thoso  oalculntlons  liultoato  that,  In  sumo  rasas , a signifi- 
cant tract  ton  of  tbo  beam  energy  may  bo  illsslpatint  by  t bo  rovorso  current. 
.Ionic  boa t t uk  by  tbo  rovorso  current  Is  a more  effective  moebanism  for 
boat tng  the  plasma  than  colltstoual  losses  from  tbo  energetic  electrons 
because  tbo  Obmic  losses  are  caused  by  tbormal  electrons  In  tbo  reverse 
current  which  have  much  shorter  moan  free  paths  than  the  energetic 
e l or  t rolls  . 

Analysts  of  tbo  steady  state  model  Indicates  that  It  can  not 
adequately  describe  the  Interaction  of  the  beam  with  the  solar  plasma 
because  the  atmosphere  ts  rapidly  heated.  If  the  time  scale  for  this 
beat  tun  ts  short  enough,  the  density  ol  the  atmosphere  can  be  taken 
constant  in  time.  The  charge  separation  required  to  drive  the  reverse 
current  ts  expected  to  respond  to  changes  on  a time  scale  very  short 
compared  to  the  time  for  the  ambient  plasma  temperature  to  change  signi- 
ficantly, so  It  Is  a reasonable  approximation  to  use  the  steady  state 
results  for  the  electric  field,  with  these  simplifications,  the  beating 
due  to  reverse  currents  ts  calculated  for  two  In, tooted  energetic  oleotnii 
f luxes . \ for  the  smaller  injected  flux,  the  temperature  of  the  coronal 
plasma  Is  raised  by  about  a factor  of  two.  The  larger  flux  causes  the 
reverse  cutrront  drift  velocity  to  exceed  the  critical  velocity  for  the 
onset  of  toitrcyclot ron  turbulence,  producing  anomalous  resistivity  and 
an  order  of  magnitude  Increase  In  the  temperature.  The  beating  Is  so 
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The  fraction  of  beam  energy  deposited  (solid  curve) 
and  the  total  energy  deposited  (broken  curve)  by 
Joule  heating  as  a function  of  the  energetic  particle 


number  flux 


Joule  heating  rate  as  a function  of  ambient  plasma 

temperature  for  an  energetic  particle  number  flux 
17  -2  -1 

of  10  cm  s The  heating  rate  is  displayed  as 

17 

the  time  T required  to  heat  the  plasma  by  10  K . . 
H 

The  kinetic  energy  for  which  the  reverse  current 
losses  are  equal  to  Coulomb  collisional  losses  for 
a beam  electron  as  a function  of  temperature  in 
the  constant  heat  flux  atmosphere,  for  five  different 
energetic  particle  number  fluxes.  From  top  to 
bottom  the  curves  correspond  to  energetic  particle 

number  fluxes  (cm  ^ s ^)  of  10^L‘',  10^'^,  10^* ", 

in18-0  j lnl8.5 

10  and  10  


Temperature  (t)  as  a function  of  integrated  number 
density  (i)  from  the  injection  point,  for  an 

17  -2 

energetic  electron  number  flux  of  1.4-14  X 10  cm 
s . The  temperature  is  displayed  before  the  beam 
is  injected  (t  = 0 s)  and  for  two  times  after  the 
beam  is  injected  (t  = 1 s and  t = 4 s)  


Temperature  (t)  as  a function  of  integrated  number 
density  I ) from  the  injection  point,  for  an 

17 

energetic  electron  number  flux  of  5.656  X 10 
-2  -1 

cm  s . The  temperature  is  displayed  before  the 
beam  is  injected  (t  = 0 s)  and  for  two  times  after 
the  beam  is  injected  (t  = 0.25  s and  t = 1 s)  . . 
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Figure 

3.3  Number  density  of  neutral  and  ionized  hydrogen  (n) 
as  a function  of  integrated  number  density  (i)  from 
the  injection  point.  The  model  serves  only  to 
represent  the  gross  overall  structure  of  the  solar 
atmosphere  above  an  active  region  (see  Appendix  b)  . . 
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This  dissertation  examines  the  consequences  of  reverse  currents  that 
may  he  expected  to  develop  in  the  solar  atmosphere  in  response  to  the 
Imposition  of  a directed  stream  of  energetic  ( non-thermal)  electrons. 

The  phenomena  which  indicate  the  presence  of  streams  of  electrons  mani- 
fest themselves  primarily  in  the  "flash  phase"  of  solar  flares  (Svestka 
1 ■ ).  Not  all  flares  exhibit  a "flash  phase"  (Svestka  197'  > Sweet  1>  9, 
Sturrock  and  Coppi  lOoc)  and  the  existence  of  directed  streams  of  non- 
thermal  electrons  is  not  universally  accepted  (Svestka  197  > Brown  19’4, 
Brown  and  Melrose  19’’).  A short  historical  review  is  presented  (cf.  1.1) 
as  an  attempt  to  place  the  phenomena  in  perspective.  Observations  that 
indicate  the  presence  of  energetic  electrons  in  the  solar  atmosphere  are 
reviewed  and  the  introduction  concludes  with  a short  summary  of  our 
present  theoretical  understanding  of  the  flare  process. 

In  Chapter  2 the  objections  to  unneutralized  electron  beams  and 
previous  work  on  reverse  currents  are  summarized  and  a steady  state  model 
of  a stream  of  energetic  electrons  neutralized  by  a reverse  current  is 
developed.  In  Chapter  3 the  model  is  modified  to  include  time  dependence 
for  a restricted  case.  The  results  of  Chapters  2 and  3 are  summarized 
in  Chapter  4 and  possible  extensions  of  the  present  work  are  suggested. 
Details  of  the  numerical  calculations  of  Chapters  2 and  3 are  discussed 
in  the  appendices. 

1.1  Historical  Overview 

The  sun  is  the  closest  star  to  the  earth  and  the  only  star  which  we 
can  presently  observe  in  great  detail.  Aside  from  the  intrinsic  interest 
of  solar  phenomena,  we  can  hope  that  by  understanding  solar  phenomena  we 

1 


I 


»tll  gain  Insight  into  what  is  likely  to  happen  on  other  stars  like  t lie 
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sun.  The  sun  is  a nontiul  c type  main  sequence  star,  hut  by  virtue  of  its 
position  it  ts  the  brightest  object  in  the  sky.  The  Importance  ol  t hr 
sun  to  life  on  earth  cannot  he  overstated.  In  the  Introduction  to  his 
hook,  file  Sun,  C.  A.  Young  (l- kVa)  emphasizes  this  point. 

"it  is  true  from  the  highest  point  of  view  the  sun  is 
only  one  of  a multitude  - a single  star  among  millions  - 
thousands  ot  which,  most  likely,  exceed  him  in  brightness, 
magnitude  and  power.  lie  is  only  a private  in  the  host  of  heaven. 

"Hut  he  alone,  among  the  countless  myriads,  is  near 
enough  t o affect  terrestrial  affairs  In  any  sensible  degree; 
and  his  Influence  upon  them  is  such  that  it  is  hard  to  l'i ini 
the  word  to  name  it;  it  is  more  than  mere  control  and  dominance. 

Me  does  not,  l 1 ke  the  moon,  simply  modify  and  determine  certain 
more  or  less  Important  activities  upon  the  surface  of  the 
earth,  but  he  ts  almost  absolutely,  in  a material  sense,  t hi' 
prime  mover  of  tin'  whole.  To  him  we  can  trace  directly  nearly 
all  the  energy  involved  in  all  phenomena,  mechanical,  chemical 
or  vital.  Cut  off  Ills  rays  for  even  a single  month,  and  the 
earth  would  die;  all  life  upon  its  surface  would  cease." 

l'lie  great  preponderance  of  the  energy  flux  from  the  sun  is,  to  the 

best  ot  our  knowledge,  very  nearly  constant  ^ Smith  and  Cottlieb  I'i'i). 

It  is  only  in  those  portions  of  the  electromagnetic  spectrum  where  the 


solar  output  is  small  ^ radio  Xl’V,  X-ray*),  in  individual  spectral  lines 
^e.g.  11  , Ca  II  and  K),  and  in  particle  emission  ^the  solar  wind,  energetic 
electrons  and  nuclei^,  that  the  sun's  output  varies  significantly  due  to 


solar  activity. 

The  most  obvious  manifestations  of  solar  activity  are  sunspots. 
Sunspots  have  been  observed  telescopically  since  tell,  shortly  after  the 


invention  of  the  telescope,  and  with  the  unaided  eye  on  infrequent  occa- 
sions since  ancient  times  ^Hrny  and  houghhead  Vb-i).  It  is  not  clear 


which  of  four  men,  Galileo  Call  lei,  Johann  Coldsmld,  Thomas  Harriot  or 


Christopher  Schetnor,  actually  made  the  first  telescopic  observation  of 


sunspots  ( Bray  and  Loughhead  1 >4) . That  another  manifestation  of  solar 
activity,  faculae,  were  observed  at  about  the  same  time  is  demonstrated 
by  the  title  of  Christopher  Scheiner's  (1  JO)  book,  Hosa  L'rsina  Slve  Sol 
ex  Admlratido  Facularum  and  Macularum  Fuarum  Pheonomeno  Varius  (see  Eddy 
et  al.  1 > J ',  Meadows  1 C’O).  In  the  first  half  of  the  ljth  century  Schwabe 
(18—,)  announced  the  possible  existence  of  the  sunspot  cycle  with  a per- 
iod of  about  lc  years  ("von  ungefahr  10  Jahren”).  Wolf  ( l8‘  2 ) later 
deduced  a more  accurate  period  of  11.1111  ± .038  years  or  "de  sorte  que 
neuf  periodes  e<|Uivalent  Justement  a un  siecle”.  Wolf  (18'2)  also  deduced 
from  earlier  records  the  years  of  sunspot  minima  back  to  1 '00,  but  the 
earlier  portion  of  this  historical  reconstruction  has  been  questioned 
recently  (Eddy  1 i "■  ). 

The  first  recorded  observation  of  a solar  flare  occurred  on  September 
1st,  18'  i.  A relatively  rare  "white  light  flare",  visible  against  the 
photosphere,  was  simultaneously  observed  by  Carrington  ( 18'  ■ .))  and 
Hodgson  (18  -)) . In  18  8 Janssen  ( 18>  »)  and  Lockyer  (l8c  0)  independently 
discovered  that  prominences  cou  lil  be  seen  outside  eclipse  with  a spectro- 
scope with  a wide  entrance  slit.  Thereafter  various  observers,  espe- 
cially Secchi  (18;"')  made  extensive  visual  observations  of  the  forms  of 
the  chromosphere  and  prominences  using  this  technique.  Flares  in 
individual  lines  were  observed  quite  often  from  the  1870's  onward  (see 
Young  I87I,  l')02b, c for  early  examples).  The  first  photographs  of  flares 
were  obtained  by  Hale  (I892)  with  a spectroheliograph  of  his  own  inven- 
tion (Hale  I89I ) . Deslandres  (1893)  independently  developed  a similar 
instrument,  and  the  basic  principle  of  the  spectroheliograph  was  known  to 
Janssen  (18  9)  who  actually  constructed  an  instrument  similar  to  the 


spectrohelioscope  (Mlllochau  and  Stefanik,  I9O  ) for  observing  promi- 
nences but  abandoned  it  in  favor  of  a widened  spectroscope  slit.  The 


basic  principle  was  independently  discovered  by  Braun,  and  Lohse  attemp- 
ted the  construction  of  a spect rohe liograph  (Hale  I9O  ) . The  matter  of 
who  actually  used  a "spectroheliograph"  first  was  the  subject  of  some 
debate  between  Deslandres  and  Hale  (Hale  I90*  , Deslandres,  190“  ) but 
this  distinction  is  generally  given  to  Hale.  In  1 )06  Hale  (1908)  made 
the  first  observation  of  magnetic  fields  on  the  sun,  and  realized  soon 
thereafter  that  magnetic  fields,  sunspots  and  flares  were  intimately 
connected  (llale  1929)*  Because  the  spectroheliograph  took  a relatively 
long  time  to  form  an  image  of  the  whole  sun,  the  systematic  investigation 
of  flares  did  not  begin  until  the  spectrohelioscope,  constructed  by  Hale 
in  192 1 (Hale  lif  t),  was  fully  developed  (Smith  and  Smith  1983).  The 
development  of  the  polarizing  monochromatic  filter  (Lyot  filter)  by 
Oilman  in  1938  (oilman  1938),  independently  of  Lyot's  original  proposal 
( Loyt  1933,  Evans  19^9),  allowed  photographs  of  the  entire  solar  disk  in 
one  spectral  line  to  be  made  rapidly.  This  type  of  filter  is  still 
widely  used  in  flare  patrol  telescopes  and  solar  observatories. 

Jansky  (1933)  made  the  first  observation  of  radio  emission  from  an 
extra-terrestrial  source.  It  was  not  until  19^2  that  Hey  (191+6)  dis- 
covered meter  wavelength  radiation  from  the  sun.  At  about  the  same  time 
Southworth  (191*-  ) discovered  centimeter  wavelength  radiation  from  the 
sun.  Reber  (I9W+)  made  the  first  published  report  of  radio  emission 
from  the  sun;  the  earlier  work  was  not  published  due  to  its  association 
with  the  war  effort.  Appleton  (19^-9)  published  evidence  for  radio 
emission  from  the  sun  in  the  7-30  meter  wavelength  band.  Appleton's 
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results  were  based  on  amateur  radio  operators'  reports  (dating  from 
l9Jt>)  of  "hiss"  heard  only  during  the  daylight  hours  and  frequently 
before  sudden  fade  outs.  Appleton  and  Hey  (19*M>)  noted  that  some  radio 
bursts  were  associated  with  flares.  Covington  (l'lUH)  first  reported 
microwave  bursts  from  the  sun  near  the  maximum  of  solar  cycle  18. 

Durnight  (I9U9)  reported  the  first  observation  of  X-ray  emission 
from  the  sun.  ISu  might ' s observation  was  made  using  photographic  film 
with  aluminum  and  beryllium  filters  flown  In  a captured  VP  rocket. 
Peterson  and  Winkler  (1‘)‘ <8)  made  the  first  observation  of  a flare  asso- 
ciated impulsive  X-ray  burst  using  a balloon  borne  proportional  counter. 

l.P  lie  view  of  Observations 

The  presence  of  energetic  electrons  In  the  solar  atmosphere  is 
inferred  from  impulsive  hard  X-ray  bursts,  impulsive  microwave  bursts 
and  observations  of  energetic  electrons  by  satellites  in  earth  orbit. 
Impulsive  microwave  bursts  are  rapid  enhancements  of  radio  flux  at 
frequencies  greater  than  ~ 1 (ill/..  These  impulsive  enhancements  occur 
simultaneously  with  impulsive  X-ray  and  KllV  bursts  and  often  show  very 
similar  time  structure,  even  down  to  the  fine  details  of  the  time  profiles 
(Peterson  and  Winkler  l1)1'1),  Kundu  Anderson  and  Winkler  1'*>P,  Kane 

and  Donnelly  l'/fl,  deFeiter  Svestka  19'f').  The  impulsive  micro- 

wave  bursts  are  generally  attributed  to  gyro-synchrotron  radiation  from 
electrons  with  energies  greater  than  ~ 1.00  keV  (llolt  and  Kamaty  I'll'1), 
Svestka  loy1).  The  graduul  post-burst  Increases  can  be  interpreted  as 
thermal  bremsstrahlung  from  the  flare-associated  soft  X-ray  plasma  and 
are  usually  accompanied  by  radio  emission  at  lower  frequencies  (Svestka 
tOY1').  The  apparent  discrepancy  between  the  number  of  electrons  required 
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to  produce  the  impulsive  X-ray  bursts  and  the  number  of  electrons  required 
to  produce  the  impulsive  microwave  emission  (Peterson  and  Winkler  19‘>9) 
can  be  resolved  if  the  details  of  the  microwave  emission  in  the  solar 
atmosphere  are  considered  (Holt  and  Ramaty  1909,  Takakura  1972).  The 
generation  and  propagation  of  microwaves  in  the  solar  atmosphere  during 
a solar  flare  are  complicated  processes  involving  the  magnetic  field 
configuration,  ambient  plasma  density  and  temperature  and  density  and 
energy  spectrum  of  the  non-thermal  electrons  (Holt  and  Ramaty  1909, 

Kruger  1)72,  Takakura  1972,  Svestka  197!')*  Therefore,  it  is  difficult  to 
unambiguously  infer  the  number  and  energy  spectrum  of  the  non-thermal 
electrons  from  the  observed  microwave  emission. 

In  some  flares,  non-thermal  electrons  escape  into  the  interplane- 
tary medium  and  are  observed  by  satellites  in  earth  orbit  (Svestka  1971  , 
Lin  1974 ) . Since  the  electrons  apparently  propagate  primarily  along 
magnetic  field  lines  in  the  interplanetary  medium,  electrons  are  observed 
primarily  from  flares  in  the  western  half  of  the  visible  hemisphere  of 
the  sun  or  from  flares  behind  the  west  limb  of  the  sun  (Svestka  I97;  , 

Lin  197*0*  Lin  (197*0  concludes  that  there  are  two  distinct  types  of 
non-relati vistic  electron  bursts  (E  < ''00  keV)  observed  at  1 AU,  "pure 
electron  events",  that  is  those  not  accompanied  by  energetic  (>  10  mev) 
protons,  and  "mixed  events"  during  which  both  energetic  electrons  and 
protons  are  observed.  The  energy  spectra  of  the  "pure  electron"  events 

can  be  well  fitted  between  '}  keV  and  100  keV  by  a power-law  in  energy, 

-y 

dN/dE  “ E , with  Y — 2.'  - . but  exhibit  a rapid  steepening  at  ener- 
gies above  100  keV  (Lin  197*0  • On  the  other  hand  the  typical  spectra  of 
energetic  electrons  for  "mixed  events"  extend  smoothly  in  a power-law 
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out  to  and  beyond  10  mev  and  tend  to  be  somewhat  harder  (V  ~ 2.'  -4.’  ) 

(Lin  1974).  When  impulsive  X-ray  bursts  are  associated  with  electrons 

2 3 

observed  at  1 All,  10  -10  more  electrons  are  required  to  produce  the 
impulsive  hard  X-ray  bursts  than  escape  to  the  interplanetary  medium 
(Lin  and  Hudson  1971,  Lin  I974) . 

It  is  now  generally  believed  that  the  mechanism  for  the  production 
of  impulsive  hard  X-ray  bursts  is  bremsstrahlung  from  electrons  scattering 
on  protons  and  heavier  ions  (Kane  1974,  Svestka  1977,  Brown  1977). 

Smaller  impulsive  events  generally  consist  of  one  or  a few  spikes  with 
comparable  e-folding  rise  and  fall  times  of  ~ 10  s (Kane  19b9,  Kane  and 
Anderson  1970,  Crannell  et  al.  1977)-  Larger  events,  with  total  durations 
of  minutes  or  tens  of  minutes,  usually  have  a complex  spiky  time  structure 
(Svestka  197'  , Hoyng  et  al.  197c).  Frost  and  Dennis  (I97I)  and  Frost 
(197*0  have  also  reported  an  apparently  distinct  non-impulsi ve  non- 
thermal  hard  X-ray  component  in  some  larger  events,  after  the  impulsive 
phase  of  the  flare  and  possibly  associated  with  a second  phase  of  particle 
acceleration.  In  this  work,  we  restrict  our  attention  to  the  impulsive 
hard  X-ray  bursts,  and  assume  that  both  the  later  "second  phase"  hard 
X-rays  and  the  "gradual  components"  in  the  low  energy  channels  (<  70  keV) 
of  some  instruments  are  distinct  phenomena. 

The  spectral  information  on  impulsive  hard  X-ray  bursts  is  limited, 
but  most  events  can  be  reasonably  fitted  to  a decreasing  power-law  in 
photon  energy  between  10-20  keV  and  100-1 '0  keV  (Kane  19' f4.  Brown  197'', 
Hoyng  1977)*  The  power-law  index  is  typically  between  2.'  and  S (Kane 
1974,  Svestka  197!’)  although  some  bursts  have  very  soft  spectra  and 
power-law  indices  as  large  as  8 have  been  reported  (Peterson  et  al.  1074). 





Most  events  show  a softening  of  the  spectrum  at  higher  energies  (K«ue 
1 - 1 Svestka  l'>f‘).  This  It  etui  or  "knee"  in  the  power-law  spectrum 
usually  occurs  between  t<0  and  100  keV  (brown  l'),'  , Svestka  I1 » '■  ) but  in 
some  events  can  occur  as  high  as  00  keV  (brown  !'•  ),  Since  the  high 
energy  cut-off  of  many  instruments  Is  below  ' 00  keV  |e.g.  OKO-" 

( Peterson  et  a_l.  l»)fU),OSO-'  (Krost  ct_  al.  lO’O)  or  (KIO-  (Kane  and 
Anderson  1*'0)1  such  a break  in  the  spectrum  may  be  present  in  many 
events  for  which  no  break  is  reported.  It  is  obvious  that  the  power- 
law  must  flatten  at  low  energies,  otherwise  t ho  total  \-ruy  flux  would 


diverge.  However,  the  determination  of  t lit'  low  energy  cut-off  is  diffi- 
cult because  the  X-ray  emission  at  low  energies  (•  LO  keV)  is  dominated 


by  the  gradual  uuasi -thermal  component  in  most  events  (brown  b>'  , 

Svestka  1>  ,'  ) . 

Although  the  interpretation  of  the  X-ray  spectrum  as  hremss t rah  lung 
from  a non -thermal  (i.e.  non-Maxwe l l fan  in  energy)  distribution  of 
electrons  is  widely  accepted,  some  workers  advocate  a thermal  inter- 
pretation for  many  impulsive  X-ray  hursts  (for  example  Chubb  b>'0, 

Klcan  I'lfb,  Crannell  et  al.  l-if  ')  and  some  events  seem  to  fit  an 
exponential  rather  than  a single  power-law  spectrum  (Klcan  b>b, 

Crannell  ej_  al.  I'),',)*  However,  the  spectral  data  are  poor,  particularly 
at  higher  energies  (primarily  due  to  counting  statistics),  and  it  is  not 
clear  that  an  exponential  spectrum  is  to  be  preferred  over  two  power- 
laws  or  some  other  form  for  the  spectra,  brown  y 1 ' t •’ v ) lias  demonstrated 
that  any  observed  hard  X-ray  spectrum  can  lie  produced  by  a thermal 
plasma  with  a suitable  temperature  distribution  in  the  source.  brown 


y 1.' • ) has  also  pointed  out  that  the  emitted  X-ray  spectrum  Is  rather 


Insensitive  to  the  source  electron  energy  spectrum  anti  concludes  that  a 


power-law  electron  spectrum  is  not  strongly  mandated  by  the  presently 
available  data. 

There  are  theoretical  objections  to  multi -thermal  models  of 
impulsive  hard  X-ray  bursts  (Kahler  1 >7  ) and  models  that  produce  power 
law  spectra  by  superposing  different  exponential  spectra  seem  somewhat 
contrived  to  this  author  despite  assertions  to  the  contrary  by  some 
workers  (e.g.  Brown  197'')  • I"  wore  recent  "thermal"  models  of  impul- 
sive hard  X-ray  bursts  (e.g.  Smith  and  Lilliequist  197^)>  the  electron 
distribution  is  not  expected  to  be  Maxwellian.  Neither  the  theoretical 
objections  (Kahler,  197' ')  or  the  limited  observational  support  for  thermal 
electron  distributions  (Elcan  19’0,  Crannell  et  al.  197')  arc  relevant 
to  this  type  of  model. 

There  is  some  support,  from  observations  of  impulsive  EUV  bursts, 
for  the  view  that  the  impulsive  hard  X-ray  bursts  are  produced  by  non- 
t he  mini,  energetic  electrons  streaming  from  the  corona  to  the  chromo- 
sphere. Impulsive  KUV  bursts  have  been  observed  directly  by  satellites 
(for  example  Kelley  and  Kense  1972,  Hall  I97I)  and  indirectly  from  the 
ionospheric  effects  they  produce  (Donnelly  I'V’i).  These  bursts  show- 
close  time  coincidence  with  the  impulsive  X-ray  and  microwave  bursts  and 
the  time  profiles  closely  resemble  the  X-ray  and  microwave  bursts 

(Noyes  197S  Donnelly  1974,  Kane  and  Donnelly  1'fl,  Kane  1974).  The 

, » !( 

energy  radiated  in  the  10-10 JO  A band  is  ^ 10  -10  times  the  energy 
radiated  In  the  associated  impulsive  hard  X-ray  burst  (Donnelly  1974, 

Kane  and  Donnelly  1971).  This  ratio  of  energy  radiated  In  the  EUV  and 
hard  X-ray  bands  corresponds  qualitatively  with  the  expected  ratio  of 


i 

' 


Coulomb  oollisionul  l os  sew  to  brernss  t rah lung  omission  from  n thick- 
target  hard  X-ray  source  (Koch  and  Mot/.  l‘>  •>,  Petrosian  1*1  'j,  Donnelly 
I'l'ij  Brown  l)Y  ).  There  are  indications  that  the  KUV  radiation  origi- 
nates low  in  the  chromosphere.  The  density  ol  the  Kl'V  emitting  renion 
can  be  estimated  to  be  10  ' cm  (Donnelly  V1',  Kane  and  Donnelly 
l * ;l\  corresponding  to  the  solar  chromosphere,  and  tin*  Kl'V  bursts 
exhibit  (statistical)  limb  darkening  which  would  be  expected  11  the 
radiation  originates  in  the  chromosphere  (Kane  and  Donnelly  li'L). 

\1 though  the  observations  presently  available  do  not  exclude  other 
interpretations,  the  preponderance  of  evidence  seems  to  favor  bremss trail- 
lung  from  a non-thermal  distribution  of  energetic  electrons  as  the 
source  of  impulsive  hard  X-ray  bursts  (Svestka  1'  ' ). 

If  the  emergent  X-ray  spectrum  were  known  exactly,  the  spectrum  of 
the  energetic  electrons  that  produce  the  radiation,  averaged  over  the 
source,  could  in  principle,  be  recovered  (Brown  L 1 ).  The  two  extreme 

approximations  that  are  usually  considered  are  "thick-target"  and  "thin- 
target"  (Brown  !>'  , Svestka  Ilf  , Hudson  li't).  In  the  thin-target 
approximation  the  electrons  lose  a negligible  amount  of  energy  in  the 
hard  X-ray  source  (Brown  1)’  , Svestka  l'1  , Hudson  l>  a).  In  this 

approximation,  the  mean  electron  source  spectrum  [i.e.  the  instantaneous 
average  of  the  electron  energy  spectrum  over  the  emitting  volume 
weighted  by  the  background  density,  see  Brown  (lo  ' )]  is  just  the  spect- 
rum of  accelerated  electrons.  In  the  thick-target  approximation,  this 
is  not  the  case. 

In  the  thick-target  approximation,  the  electrons  lose  all  their 
energy  (primarily  by  Coulomb  collisions)  in  the  source  region.  Since 


the  mean  free  path  of  the  more  energetic  electrons  is  longer,  the  energy 
spectrum  of  the  electrons  averaged  over  the  emitting  volume  is  harder. 

If  we  assume  the  density  is  uniform  in  the  source,  that  the  electrons 
are  all  streaming  downward  and  that  the  accelerated  electron  energy 
spectrum  is  a fairly  steep  power-law,  then  the  approximate  difference 
between  the  inferred  mean  electron  source  spectrum  in  the  thin  and 
thick-target  approximations  can  be  estimated.  In  this  case,  since  the 
mean  free  path  of  an  electron  against  Coulomb  collisions  is  approxi- 
mately proportional  to  fT  , the  effective  source  volume  for  electrons 
of  energy  E in  the  accelerated  spectrum  is  also  approximately  propor- 

p 

tional  to  IT  . Since  the  injected  spectrum  is  very  steep  (by  assumption), 
once  an  electron  has  lost  an  appreciable  fraction  of  its  energy,  it  no 
longer  contributes  significantly  to  the  emergent  X-ray  flux.  Therefore, 
to  produce  the  same  power-law  index  of  emergent  X-rays  the  index  of  the 
injected  electron  beam  must  be  — 2 greater  (a  softer  injected  spectrum) 
in  the  thick-target  case  than  in  the  thin-target  approximation.  The 
preceeding  simple  analysis  neglects  beaming  effects  in  the  case  the 
energetic  electron  velocity  distribution  is  anisotropic  (Petrosian  I97i> 
Brown  197?)  and  the  exact  behavior  of  the  Coulomb  cross  section.  However, 
the  conclusion  is  found  to  be  qualitatively  correct  in  thick-target 
models  of  impulsive  hard  X-ray  bursts  for  X-ray  energies  below  ~ 100  keV 
even  when  a more  detailed  analysis  is  performed  (Brown  l97'!>  Petrosian 
1973,  Hudson  1972,  Brown  1971) • The  more  detailed  calculations  indicate 
that,  depending  on  the  assumptions  and  model  characteristics,  thick- 
target  models  require  injected  electron  power-law  indices  — l.'-2  greater 
than  thin-target  models  for  the  same  emergent  X-ray  spectrn. 


» 


Some  curly  models  o t impulsive  \-ruy  bursts  considered  impulsive 
injection  of  the  energetic  electrons  and  the  subsequent  decay  of  the 
Impulsively  injected  electrons  in  the  source  ronton  (c.g.  Takukura  and 
Kal  l'  K i ) . In  its  simplest  form  this  model  does  not  agree  with  observa- 
tions since  It  predicts  a systematic  hardening  of  the  burst  spectra 
during  the  decay  of  the  hard  X-rny  burst  (brown  V > ;■  , Petrosian  1')  ’3) 
for  the  same  reason  that  the  source  averaged  energetic  electron  spectrum 
ts  harder  in  the  thick-target  models,  t.e.  the  low  energy  electrons  lose 
their  energy  more  rapidly  than  the  high  energy  electrons.  brown  ( T_ 
has  introduced  u modification  of  the  usual  coronal  impulsive  hard  X-ray 
source  that  removes  this  particular  objection,  but  it  requires  the 
assumption  of  an  average  source  density  that  is  energy  dependent 
^ n K , o v/;')  . brown  (1  >,T')  motivates  this  assumption  by  invoking 
an  energy  dependent  pitch  angle  distribution  for  t ho  accelerated  elec- 
trons, but  the  simplicity  of  the  original  "coronal  trap"  model  is  lost. 
This  type  of  mode  1 can  explain  the  observation  of  impulsive  X-rav  bursts 
from  "behind-the- l tmb"  flares  since  portions  of  the  X-rny  source  are 
high  in  the  corona.  However,  since  behind-the- limb  flares  also  produce 
high  energy  X-rays,  this  model  requires  densities  10^"  cm  ' high 
10  cm)  in  the  solar  atmosphere.  If  this  were  the  case,  impulsive 
X-ray  bursts  from  behind-the-limb  flares  could  bo  explained  by  thick- 
target  models  as  well.  Since  the  product  of  the  instantaneous  number  of 
energetic  electrons  in  the  source  and  background  density  determines  the 
emergent  X-ray  flux,  brown's  ( 1'  > f2 ) model  requires  a much  larger  number 
of  energetic  ('■  20  keV)  electrons  than  equivalent  thick-target  models. 
Additionally,  since  most  of  the  energy  resides  in  the  low  energy  electrons 


m 


i 


> 


which  encounter  only  low  densities  10^)  , these  electrons  cannot  be 
invoked  to  account  for  the  impulsive  EUV  bursts  which  are  emitted  from 
regions  where  the  density  is  ^ 10  cm  (Donnelly  1'VfU)  and  which  are 
observed  simultaneously  with  impulsive  X-ray  bursts  (this  is  also  true 
of  more  recent  "thermal"  models,  e.g.  Smith  and  Lilliequist  197$) • 

Aside  from  some  difficulty  in  accounting  for  impulsive  X-ray  bursts 
from  behind-the-limb  flares,  thick-target  models  for  the  hard  X-ray 
bursts  are  at  least  not  excluded  by  present  observations.  Since  they 
have  the  advantage  of  also  providing  the  energy  required  for  the  impul- 
sive EUV  bursts  (Donnelly  l97‘0>  it  seems  reasonable  to  accept  the  thick 
target  approximation  for  the  production  of  the  hard  X-ray  bursts.  In 
this  case,  since  the  time  for  the  electrons  to  lose  all  their  energy  is 
short  compared  to  the  time  scale  of  the  Impulsive  X-ray  burst  (Brown 
197‘>,  Petrosian  1973),  variations  in  the  X-ray  flux  and  spectrum  are 
attributed  to  changes  in  the  (unspecified,  c.f.  l.j)  acceleration  process. 

In  the  thick-target  model  the  energy  flux  of  the  electron  stream 
required  to  produce  a specified  X-ray  flux  at  1 AU  depends  on  (a)  the 
anisotropy  of  the  electron  velocity  distribution,  (b)  the  power-law 
index  of  the  X-ray  flux  and  (c)  the  lowest  energy  to  which  the  power-law 
in  energy  is  assumed  to  extend  for  the  energetic  electrons  (Brown  197% 
Petrosian  1973) • Neglecting  possible  beaming  of  the  bremsstrahlung 
radiation  (Petrosian  1973,  Brown  1777)  and  backscatter  from  atmosphere 
( Langer  and  Petrosian  1977),  wt?  ran  obtain  an  order  of  magnitude  esti- 
mate for  the  flux  of  non-thermal  electrons  at  the  sun  for  an  observed 
flux  of  X-rays  at  1 AU.  If  the  flux  of  X-rays  at  some  energy  E ^ at 
earth  is  '*  (photons  cm  *"  s keV  ),  then  the  total  X-ray  photon  flux 
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27.  V -1  -1 

Is  10  ' ‘t  photons  keV  s . Since  the  observed  power-law  spectra 
are  typically  fairly  steep  (brown  177;  } Svestka  177'  )>  most  of  the  X-rays 
at  K , are  produced  by  electrons  with  only  slightly  higher  energies.  The 
total  efficiency  (the  ratio  of  bremsstrahlung  losses  to  Coulomb  collisional 
losses)  is  approximately  lO-"  K for  a thick-target  hydrogen  plasma 
(Koch  and  Mot z 17"  Petrosian  177.3)  • Therefore,  the  total  non-thermal 

electron  flux  in  the  source  above  K must  be  **-  10~’'^‘  T K keV  ^ . 

U 0 

1.  i Review  of  Flare  Theories 

j In  t he  proceeding  sections  we  have  discussed  some  of  the  observed 

I 

. properties  of  solar  flares  as  they  relate  to  the  inferred  presence  of 

non-thermal  electrons  in  the  solar  atmosphere  during  a flare.  We  have 

» 

not  dealt  with  most  of  the  diverse  phenomena  associated  with  solar 

1 

flares.  Svestka  (1  ) lists  thirty-seven  "basic  properties  of  flares". 

When  all  the  subtopics  are  counted,  Svestka's  list  contains  more  than 
eighty  observational  aspects  of  flares.  With  such  a large  number  of 
properties  to  be  considered,  it  is  not  surprising  that  a wide  variety 
of  flare  theories  and  models  have  been  proposed.  Since  reviews  of  flare 
theories  exist  in  the  literature  (Svestka  197'  > Sweet  lTc'1) , the  selec- 
tion of  theoretical  ideas  discussed  here  is  only  representative  and  not 
I 

exhaustive.  This  discussion  of  flare  theories  is  included  only  to  show 
how  the  production  of  non-thermal  electron  streams  fits  in  the  present 
theoretical  picture  of  solar  flares  and  therefore  no  particular  model 
will  be  treated  in  detail. 

It  is  now  widely  believed  that  the  energy  released  in  solar  flares 
is  stored  in  the  magnetic  fields  in  the  upper  solar  atmosphere  (Rust 
I077,  Svestka  l'1  ' , Sweet  V*->) . The  energj  which  is  available  for 
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release  is  the  excess  energy  of  the  non-potential  magnetic  field  con- 
figuration above  the  energy  in  the  potential  (current-free)  field  (Bust 
l'-  ,’,  Svestka  1>  ' , Sweet  1>  )) . Because  the  magnetic  field  energy 
density  is  generally  believed  to  be  greater  than  the  thermal  energy 
density  of  the  plasma  in  the  upper  solar  atmosphere,  the  non-potential 


field  configurations  must  be  nearly  force-free  (Gold  and  Hoyle  l'AO, 
Sturrock  lO  '-V).  Although  many  non-potential  field  configurations  have 
been  proposed,  these  configurations  can  be  divided  into  two  broad  cate- 
gories depending  on  the  distribution  of  currents  in  the  solar  atmosphere 
(Svestka  1)'  , Sturrock  10' 7-V)  . One  possibility  is  a force-free  configu- 
ration in  the  form  of  twisted  flux  tubes  (Gold  and  Hoyle  1 9t'0,  Alfven 
and  Cariqvist  l->  Spicer  1 > ' ')  or  sheared  field  lines  (Tanaka  and 
Nakagawa  1 ' ' j)  . In  this  case  the  currents  are  distributed  over  a large 
volume  in  the  atmosphere.  The  other  possibility  is  that  the  field  is 
largely  current-free  with  the  current  concentrated  in  current  sheets 
(Sweet  1'  Syrovatsky  1'Vt  , Sturrock  I968,  Priest  and  Heyvaerts  I07!;) . 

A large  number  of  flare  models  have  been  developed  under  the  assumption 
that  current  sheets  develop  in  the  solar  atmosphere  as  a result  of 
motions  in  the  photosphere  or  the  emergence  of  new  flux  (Svestka  197l,> 
Sweet  1 » ■'>).  Barnes  and  Sturrock  (lo  .’j)  have  studied  the  development  of 
non-potential  force-free  fields  due  to  photospheric  motions  and  found 
that  the  stored  energy  in  the  force-free  configuration  can  exceed  that 
of  a configuration  with  a current  sheet.  They  concluded  that  one  possible 
sequence  of  events  that  would  produce  a current  sheet  in  the  solar  atmo- 
sphere was  the  conversion  of  a more  energetic  force-free  configuration 
to  a configuration  with  a sheet.  Priest  and  Heyvaerts  (197-0  examined 


1 


' 

the  production  of  a current  sheet  when  new  flux  emerges  into  a pre- 
existing magnetic  field  configuration. 

The  earliest  electromagnetic  models  of  flares  invoked  the  production 
of  non-thermrl  electrons  and  realized  the  importance  of  electric  fields 
at  "neutral  points"  in  the  magnetic  field  (Giovanelli  19*h  , 19'T ',  19**-8> 
Hoyle  I t , 3).  Dungey  (1  » 8)  pointed  out  that,  when  reconnection  of 
magnetic  field  lines  occurs,  a IK'  electric  field  will  be  developed  in 
the  reconnection  region  which  could  lead  to  acceleration  of  charged 
particles.  In  "current  interruption"  models  (Alfven  and  Carlqvist  19  ’) 
electrons  are  accelerated  by  the  IK'  electric  field  that  develops  when 

■! 

the  "inductive  circuit"  is  opened.  In  models  in  which  reconnection 

i 

occurs  in  a current  sheet  (Sturrock  l * 8,  Friedman  and  llamberger  1>  >, 

I 

t'oppi  and  Friedland  1 ) ’l),  some  acceleration  by  a IK'  electric  field  at 
i 

the  neutral  point  may  occur,  but  the  bulk  of  the  acceleration  is  usually 
attributed  to  stochastic  acceleration  of  electrons  by  high  frequency 
electric  fields  that  develop  during  the  reconnection  process  due  to 
plasma  instabilities  (sturrock  197*9  Smith  197'0  • It  has  proved  diffi- 
cult to  develop  a self  consistent  theoretical  model  of  the  rapid 
acceleration  of  the  number  of  electrons  required  to  produce  the  observed 
X-ray  flux  (Smith  197’a, b,  Brown  and  Melrose  1977)*  At  present,  the 
mechanism  by  which  electrons  are  accelerated  in  the  impulsive  phase  of 
solar  flares  is  not  well  understood  theoretically  (Svestka  197")* 

However,  simple  considerations  indicate  that  if  the  energy  stored  in  the 
magnetic  field  is  released  in  the  low  density  corona,  particles  can  be 
expected  to  acquire  energies  of  10-100  keV  (sturrock  197*0*  Furthermore, 
the  ingredients  of  many  possible  acceleration  mechanisms  ( IK'  electric 


1, 


fields,  plasma  turbulence)  are  natural  by-products  of  most  processes 
which  release  the  energy  stored  in  the  magnetic  field.  Therefore, 
since  there  is  observational  evidence  for  the  acceleration  of  electrons 
in  the  impulsive  phase  of  flares,  we  will  assume  that  this  acceleration 
does  occur  even  though  the  exact  mechanism  has  yet  to  be  elucidated. 


2.  STEADY  STATK  MODEL  OK  BEAM  AND  K EVERS E CURRENT 

.1  Objections  to  I'nneutraliz.ed  Hearns 

The  simplest  thick-target  model  for  the  production  of  impulsive 
\-ray  bursts  is  that  considered  by  Petrosian  (lO'Jj).  In  this  model  a 
beam  of  energetic  electrons  is  assumed  to  propagate  from  the  corona  to 
the  chromosphere.  \11  the  electrons  are  assumed  to  have  their  velocities 
in  the  same  direction  until  they  lose  all  their  energy,  approximating  a 
source  in  which  the  energetic  electrons  stream  down  a nearly  vertical 
magnetic  field  line  with  small  pitch  angles  into  an  atmosphere  with  a 
small  density  scale  height  (Petrosian  1 > i) . Several  authors  (Brown 
1 > ’ , Brown  and  Melrose  1<  ' , Colgate  et  al.  10  ' ',  Hoyng  1>  ’ Hoyng  et 
al.  1 > ) have  pointed  out  difficulties  if  this  electron  stream  is  not 

neutralized  by  a reverse  current. 

Brown  ^ "L  ) ’•  ) pointed  out  that  the  number  of  electrons  required  to 
stream  from  the  corona  to  the  denser  portions  of  the  solar  atmosphere 
during  some  impulsive  hard  X-ray  bursts  was  quite  large.  Indeed  in  some 
events  as  large  as  1C  ( Hoyng  et  al.  1)'),  or  all  the  electrons  in  the 
solar  atmosphere  above  the  level  where  the  electron  density  is  **-  10  ^ cm 
(Brown  lo  ).  Another  objection  to  the  existence  of  an  unneutralized 
beam  is  that  the  magnetic  energy  that  would  be  stored  in  this  beam  is 
many  orders  of  magnitude  larger  than  the  total  flare  energy  (Colgate  et 
al.  10  • ;).  If  N is  the  total  number  of  electrons  streaming  downward 
over  the  duration  i\s)  of  the  impulsive  phase,  the  magnitude  (emu')  of 
the  current  may  be  estimated  from 

I ^ ec  NT  (2.1) 
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II  thr  t runs vo rse  nnd  longitudinal  dimonsions  ol’  the  stream  aro  ol' 
order  K (cm),  an  estimate  of  the  strength  11  (gauss)  of  the  magnetic 
field  produced  l>y  the  stream  Is  given  by 

I)  - PIU  ; (p.p) 

and  tlie  total  energy  V (ergs)  of  this  magnetic  field  may  be  estimated 
f rom 


II  - i-  H ll  - — l'  It  , (P.  i) 

on  pit  7 

which  becomes 

■\  • i ■ i _o  _)),()  )|  ■'  _p 

H - — e c ' N’  T ' H - 10  ' N'  t ‘ li  . (pjl) 

n 

Kane  and  Anderson  ( Ll'fO)  estimate  the  total  energy  involved  in  a 

typical  small  flare  to  be  ~ 1.0'  ergs,  the  time  scale  to  be  ~ 1.0'  s , and 

the  characteristic  length  scale  to  be  ~ to'  " cm  and  infer  from  the  X-ray 
data  that  the  total  number  of  energetic  electrons  is  ~ 10 ' . for  these 

values  the  above  formulae  lead  to  estimates  of  l ~ lo''1"'  , H ~ lit  , 

a. 

and  li  ~ Lo  . for  a largo  event  the  total  flare  energy  could  be 

' O 1 ) ^ 

~ Lo  ergs,  the  length  scale  *-  10  * , the  characteristic  time  ~ lo 
and  the  total  number  of  energetic  electrons  ~ l0'~  ( lloyng  et  al.  lOj'o). 

1 ( ' ' ' ' i ) | 

In  this  case  l 1.0’  ” , 11  ~ .1.0  and  U ~ 1.0  . Clearly  a model  which 

Involves  an  unneutrnlizod  beam  lends  to  unacceptably  high  values  of  the 

magnetic  field  and  magnetic  energy  associated  with  the  beam. 

Problems  associated  with  the  propagation  of  high  current  beams  of 
charged  particles  not  neutralized  by  a reverse  current  have  been  considered 
In  other  contexts.  Alfven  (loft)  examined  the  limitations  on  the  propa- 
gation of  electrostatically  neutralized  high  current  beams  of  relativistic 
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charged  particles,  motivated  by  an  apparent  sidereal  day  variation  in 
the  cosmic  ray  flux  (Alfven  1938,  Compton  and  Getting  1939),  which 
later  proved  to  be  spurious  (Dorman  197^) • Consider  a cylindrically 
symmetric,  mono-energetic,  uniform  beam  of  charged  particles  moving 
through  a background  of  opposite  charge  so  distributed  that  the  charge 
density  (esu)  is  everywhere  zero.  If  the  beam  is  infinite  in  extent 
along  the  symmetry  axis  and  has  a radius  of  R , then  the  magnetic  field 
as  a function  of  distance  from  the  axis  for  r S R is 

B(r)  = = 2njr  , (2.9) 

where  l(r)  is  the  current  inside  r and  j is  the  current  density 
(asjumed  uniform).  The  gyro  radius  of  a charged  particle  in  a magnetic 
field  is 


r 


(2.6) 


where  p is  the  particle  momentum  and  q is  the  particle  charge. 

Consider  a test  particle  of  the  same  charge  and  mass  as  the  beam  particles 
moving  in  the  magnetic  field  of  the  beam.  Suppose  the  test  particle  is 
initially  at  the  outer  edge  of  the  beam  (r=R)  and  has  the  same  momentum 
as  the  beam  particles.  We  denote  by  R^  the  beam  radius  for  which  the 
gyroradius  of  this  particle  in  the  average  field  it  sees  in  its  trajectory 
is  equal  to  the  beam  radius.  For  a beam  of  this  radius  ( R^)  , the 
particle  will  cross  the  axis  of  symmetry  with  its  momentum  perpendicular 
to  that  of  the  beam  particles.  If  the  radius  of  the  beam  is  increased, 
the  particle  will  cross  the  symmetry  axis  with  the  component  of  its 
momentum  opposite  in  sign  from  that  of  the  beam  particles  and  its  average 


20 


velocity  over  the  trajectory  will  also  be  negative.  Clearly  Increasing 


t lie  beam  radius  beyond  will  not  increase  the  current.  If  we  esti- 

mate the  average  magnetic  field  as  ~ 1/2  the  field  at  the  edge  of  the 
beam,  we  find  that  there  is  a maximum  current  which  can  be  carried  by  a 
beam  which  satisfies  our  original  assumptions: 


1)  =- 
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HU 
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here  [;  v/c  and  V (l—'  ) I is  called  the  "Alfven  current  limit 

or  the  "Alf ven-Lawson  current  limit"  and  for  electrons  we  find 
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1 100  , V , 


in  agreement  with  Alfven’s  (10.39)  more  rigorous  derivation.  This  restric- 
tion is  much  more  stringent  than  the  objections  to  the  stored  magnetic 

energy.  For  an  electron  energy  of  100  keV,  the  currents  estimated  for 

10  1 j 

the  hypothetical  small  and  large  events  are  ~ 10  I , and  **■  10  I 
respectively.  The  value  of  the  current  limit  derived  by  Alfven  depends 
on  all  the  original  assumptions  being  satisfied.  Arbitrarily  large 
currents  can  in  principle  be  propagated  by  relaxing  the  assumption  of 
exact  electrostatic  neutralization  (Lawson  lovf,  10‘'8,  I0'>o),  the 
assumption  that  the  beam  is  mono-energetic  (Bennett  lOj-t),  the  assumption 
that  the  current  density  (particle  flux)  is  uniform  (Hammer  and  Kostoker 
1970)  or  adding  a very  strong  magnetic  field  along  the  symmetry  axis 
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(Hammer  and  Rostoker  l'VfO).  However,  none  of  these  mechanisms  seem 
particularly  likely  to  be  applicable  in  solar  flare  impulsive  hard 
X-ray  bursts,  nlthough  some  are  relevant  to  particular  laboratory  experi- 
ments. The  simplest  resolution  to  these  objections  is  the  existence  of 
a reverse  current  (cf.  2.2). 

.2  Previous  Work  on  Reverse  Currents 

It  is  well  known  that  a plasma  tends  to  preserve  charge  neutrality. 

A process  which  tends  to  give  an  excess  positive  or  negative  charge  in 
some  region  will  lead  to  electric  fields  which  act  upon  the  plasma. 
Movement  of  electrons  in  response  to  this  electric  field  will  then 
restore  charge  neutrality.  One  expects  that  analogous  process  will  also 
tend  to  maintain  current  neutrality.  If  an  electron  beam  is  suddenly 
introduced  into  a plasma,  a sudden  change  occurs  in  the  magnetic  field 
structure  which  will  develop  induced  electric  fields  opposing  the  primary 
current . 

Although  interest  in  beams  of  relativistic  electrons  is  not  recent 
(see  for  example  Bennett  lOjU,  Alfven  l'jj'j),  theoretical  and  experimental 
work  on  high  current  relativistic  electron  beams  was  stimulated  by  the 
development  of  devices  capable  of  producing  relativistic  electron  beams 
with  currents  on  the  order  of  or  greater  than  the  Alf ven-Lawson  current 
limit  (See  for  example  Graybill  and  Nublo  l9ot' , Roberts  and  Bennett 
Yonas  and  Spence  • Roberts  and  Bennett  (19t>8)  injected  a beam  of 

j.‘-  mev  electrons  (|<  =.992,  Y =7*8  ) with  a beam  current  of  jOOO  emu 
( I =■  .2jl,)  into  a linear  pinch  with  n ="  10^  * cm  \ They  found  that 
the  beam  current  was  nearly  completely  neutralized  by  a reverse  current 
in  the  ambient  plasma  and  that  the  change  in  the  total  current  (measured) 
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Similar  results  have 


was  a very  small  fraction  of  the  beam  current.  Similar  results  have 
been  obtained  with  other  experimental  upparutus  ( Prono  et  al.  1'/  , 

Kkdahl  et  al.  1974,  Goldenbaum  et  al.  I9f4,  Klok  et  al.  1974,  Miller  and 
Kuswn  1973,  Levine  et  al.  19' (1)  when  the  ambient  plasma  density  was 
sufficiently  high. 

Several  theoretical  models  of  energetic  electron  beams  neutralized 
or  partially  neutralized  by  reverse  currents  in  the  ambient  plasma  have 
been  developed  (for  example  Cox  and  Dennett  19  ft),  Hammer  and  Kostoker 
1>  >70,  Lee  and  Sudan  1971,  Lovelace  and  Sudan  l9fl,  Chu  and  Kostoker  1'1,’j). 
Since  these  theoretical  treatments  are  primarily  concerned  with  the  high 
current  energetic  electron  beams  that  are  typically  produced  in  labora- 
tory studies  and  not  in  the  electron  beams  thought  to  be  responsible  for 
impulsive  hard  X-ray  bursts,  some  of  the  results  are  not  relevant  to  t lie 
solar  flare  case  (cf.  2.j).  The  models  cited  treat  cylindrical ly  symmet- 
ric mono-energetic  beams  of  the  type  considered  by  Alfven  (cf.  2.1)  with 
the  possible  addition  of  a uniform  magnetic  field  along  the  symmetry 


axis.  When  the  beam  current  is  small  compared  to  1^  , then  the  induced 


reverse  current  flows  primarily  outside  the  beam  cylinder  (r  > It)  while 


for  I » I the  reverse  current  is  confined  to  r £ K and  the  current 
A 


neutralization  is  local  in  the  sense  that  the  ambient  electrons  drift 
with  the  velocity 


V - V 

d n b * 


(2.10) 


where  V is  the  reverse  current  drift  velocity,  V is  the  velocity  of 
d • ’ b 


the  beam  electrons  and  n,  and  n are  the  beam  and  plasmu  electron 

be 


number  densities  (Cox  and  Bennett  I970) • Depending  upon  the  sharpness 
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of  the  leading  edge  of  the  beam,  large  amplitude  coherent  plasma  oscilla- 
tions may  be  generated  by  the  passage  of  the  beam  head  (hammer  and 
Rostoker  1970,  Cox  and  Bennett  1970,  Lee  and  Sudan  1971>  Chu  and  Rostoker 

1973).  T*>e  amplitude  of  these  plasma  oscillations  is  -w(  n T) , where 

(p  X /p\ 

=(4n  n e‘  /m  ) ‘ 1 and  T is  the  rise 

P e e l 

time  of  the  beam  (Lee  and  Sudan  1971).  These  oscillations  decay  with  a 

scale  length  of  V.  T , where  t is  a phenomenological  momentum 

relaxation  time  for  the  plasma  electrons.  If  the  lateral  dimension  (u) 

of  the  beam  is  large  compared  to  the  electromagnetic  skin  depth 

(\g =e/i'  ) , after  the  plasma  oscillations  decay  the  net  current  will  be 

~ X, /R  times  the  beam  current.  The  current  of  the  beam  will  be  neutral- 
E 

O 

ized  for  a length  of  V.  t (K/\.,)‘  . The  theoretical  models  for  mono- 

b ee'  E 

energetic  beams  are  not  appropriate  for  the  streams  of  energetic  electrons 
that  are  responsible  for  impulsive  X-ray  bursts.  We  argue  in  Section  2.3 
that  the  beams  in  solar  flares  will  be  current  neutralized  in  steady 
state. 

2 . 3 Steady  State  Model 

We  now  examine  a simple  model  for  an  impulsive  X-ray  burst.  We 
consider  a vertical  flux  tube  extending  from  the  corona  to  the  chromo- 
sphere and  assume  that  electrons  are  accelerated  at  the  top  of  the  flux 
tube  by  the  development  of  stochastic  electric  fields  (sturrock  I9t>b, 

Hall  and  Sturrock  19>'7,  Newman  1973)  or  by  some  other  mechanism  (cf. 
Section  l.j).  The  injection  of  these  electrons  down  the  field  toward  the 
chromosphere  then  leads  to  the  development  of  a reverse  current  both  by 
the  mechanisms  considered  for  mono-energetic  beams  in  laboratory  plasmas 
(t’ox  and  Bennett  1970,  Hammer  and  Rostoker  1970,  Chu  and  Rostoker  1973) 


and  due  to  an  electrostatic  field  due  to  charge  Imbalances.  The  strong 


tendency  of  a plasma  to  remain  charge  neutral  implies  that,  if  a current 
Is  generated  in  the  plasma  that  would  systematically  violate  dp/dt =0 
on  time  scales  much  greater  than  a plasma  period  (i.e.  a non-MHl)  current) 
then  this  current  will  generate  a neutralizing  secondary  reverse  current. 

In  contrast  to  the  mono-energetic  beams  typical  of  laboratory  expert 
meats,  the  streams  of  energetic  electrons  that  produce  impulsive  X-ray 
bursts  probably  have  smooth  distributions  in  energy.  This  is  inferred 
from  observations  (of.  1.2)  and  theoretical  considerations  indicate  it 
is  likely  that  the  number  of  electrons  does  not  increase  with  energy 
(llrown  and  Me  1 rose  lo  ' Smith  l')'  -).  We  consider  below  an  energetic 
electron  stream  with  a distribution  of  this  type,  that  has  electrons  of 
all  energies  present.  The  low  energy  electrons  are  constantly  merging 
with  the  background  plasma  and  can  build  up  charge  imbalances.  In  the 
case  of  a mono-energetic  beam  considered  by  other  workers  (for  example 
Cox  and  Bennett  1970,  Chu  and  Rostoker  1973) » charge  imbalance  would  only 
bui Id  up  at  the  ends  of  the  plasma  device  since  the  energetic  electrons 
do  not  interact  with  the  plasma  significantly  except  through  the  reverse 
current.  Charge  built  up  at  the  ends  of  an  experimental  plasma  column 
would  either  be  conducted  away  by  external  return  paths  or  be  shielded 
from  the  bulk  of  the  plasma  within  a few  Debye  lengths  of  the  ends  and 
not  drive  reverse  currents  in  most  of  the  volume  of  the  plasma  column. 

Lovelace  and  Sudan  (1971)  pointed  out  that  the  microscopic  process 
involved  In  heating  the  plasma  with  reverse  currents  are  equivalent  to 
heating  with  currents  induced  by  external  fields.  However,  the  reverse 
currents  avoid  the  skin  effect  limitations  of  currents  induced  by 
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external  fields.  Similarly,  since  charge  can  be  supplied  by  the  beam  in 
the  case  of  solar  flares,  charge  imbalances  can  build  up  within  the  plasma 
and  drive  reverse  currents.  Although  these  charge  imbalances  arise 
throughout  the  plasma,  we  can  estimate  the  time  (t)  required  to  accumu- 
late sufficient  charge  separation  from  the  time  required  to  accumulate 
enough  charge  per  unit  area  on  a parallel  plate  capacitor  to  produce  an 
electric  field  sufficient  to  drive  the  required  reverse  current.  This 
required  charge  separation  is  related  to  the  current  density  by 
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where  E is  a surface  charge  density,  T|  is  the  resistivity,  and  j 


unn 


Is  tlie  unneutralized  portion  of  the  beam  current  density.  Then  the  time 
to  accumulate  the  required  charge  is 


.1 


c j t ic 

' unn 


(2.12) 


The  ratio  of  unneu trail  zed  current  density  to  the  beam  current  density  is 
X /R  (cf.  2.2)  so  that 

r. 
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Tc  - I0“9,ltl(10b/T)(n/109)  ' (R/109)  . 
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(2.13) 

(2.14) 


This  assumes  that  the  resistivity  is  the  usual  Spitzer  value.  If  the 
resistivity  is  "anomalous"  the  effective  collision  frequency  can  be  of 
order  the  electron  plasma  frequency  (p  ) . Actually  this  is  an  upper 
limit,  for  the  Buneman  instability  the  effective  collision  frequency  is 
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.1  (Buneman  The  resistivity  is  proportional  to  the  collision 

frequency  so  we  can  write 

l04.7'  1/2 

, (2.1) 
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<o  that  T becomes 
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We  see  that  the  time  to  accumulate  charge  imbalances  sufficient  to  drive 
a neutralizing  reverse  current  is  short  compared  to  time  scales  of 
interest . 

If  the  resistivity  is  written 
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t hen  T becomes 
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and  the  ratio  of  the  charge  accumulation  time  to  the  time  the  current 

remains  neutralized  (t  ) by  the  mechanisms  considered  for  a mono- 

' n 

energetic  beam  (cf.  2.2)  becomes 
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so  that  the  charge  accumulation  time  is  much  shorter  that  the  time  the 
current  would  remain  neutralized  if  no  charge  imbalance  arose  in  the 
plasma.  For  time  scales  and  length  scales  of  Interest  in  solar  impulsive 
X-ray  bursts,  the  reverse  currents  will  be  caused  primarily  by  charge 
separation  (lloyng  and  Melrose  1) Also,  since  beams  of  interest  for 
solar  impulsive  X-ray  bursts  are  not  expected  to  have  sharp  fronts,  the 
plasma  oscillations  excited  by  passage  of  the  "beam  head"  will  be  of 
extremely  small  amplitude  and  consequent ly  of  no  great  significance 
(Melrose  197*0  • Therefore,  we  are  .justified  in  considering  a steady 
state  in  which  the  beam  current  is  exactly  balanced  by  a reverse  current 
in  the  background  plasma.  For  the  present  (cf.  Chapter  j),  we  assume 
that  the  background  plasma  can  be  adequately  described  by  a Maxwellian 
velocity  distribution  and  use  transport  coefficients  based  on  this 
assumption  (Spti/.er 

We  are  interested  in  the  case  in  which  the  primary  electron  stream 
is  composed  of  high-energy  electrons  with  consequently  long  mean  free 
paths  in  the  tenuous  solar  corona.  However,  we  shall  find  that  the 
electric  field  that  develops  to  drive  the  reverse  current  also  decelerates 
the  electron  stream  (cf.  Lovelace  and  Sudan  l*'’l).  Hut  when  the  electron 
energy  becomes  comparable  with  the  thermal  energy,  the  mean  free  path 
will  be  sufficiently  short  that  the  primary  electrons  will  merge  with 
the  background  plasma.  As  a simple  representation  of  this  process,  we 
ignore  collisions  in  discussing  the  primary  beam  but  we  assume  that  an 
electron  of  the  primary  beam  is  absorbed  into  the  background  plasma 
when  It  is  decelerated  to  zero  energy.  This  approximation  is  justified, 

If  the  temperature  of  t lie  ambient  plasma  Is  sufficiently  low. 
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If,  as  a further  simplification,  we  consider  a flux  tube  of  uniform 
cross  section,  we  may  use  the  following  simple  one-dimensional  form  of 
the  Vlasov  equation: 


df  e d <f>  df 
V tj-  + - — = 0 , 

os  m ds  ov  ’ 


(2.21) 


where  s measures  length  along  the  tube,  v is  velocity  (along  the  tube), 
f(s, v)  is  the  velocity  distribution  function  of  the  primary  electron 
stream,  and  is  the  electrostatic  potential. 

At  the  top  of  the  flux  tube  ( s =0)  , the  primary  electron  stream  is 
moving  with  positive  velocity  and  electrons  that  are  decelerated  to  zero 
velocity  are  assumed  to  be  removed  from  the  beam.  Hence  we  may  without 
ambiguity,  express  f in  terms  of  Y , which  is  defined  by 


(2.22) 


The  initial  distribution  function  may  therefore  be  expressed  as 


f ( 0,  v)  = F(Y ) . 


(2.23) 


With  this  initial  condition,  we  find  that  the  solution  of  the  Vlasov 


equation  (2.21)  is 


f(s,  v)  = F(Y-<f>)  . 


(2.24) 


The  current  density  j in  the  primary  electron  stream  is  given  by 


Js  = ' c 
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which  may  be  expressed  as 
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Since  $>  will  prove  to  be  negative  in  the  region  of  interest,  it  i? 


convenient  to  write 


0 - , 


so  that  Filiation  (p.^r)  may  be  reexpressed  as 


(2.2  r) 
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F(x)dx 


(2.28) 


We  have  seen  that  the  beam  current  will  be  nearly  completely  neutralized 
by  currents  in  the  background  plasma,  so  we  may  write 


•v  - J. 


(2.29) 


where  J is  the  secondary  current  induced  in  the  background  plasma.  We 

here  assume  that  the  density  and  temperature  are  such  that  j may  be 

' P 


represented  by  Olim ' s law. 
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It  is  convenient  to  introduce  a new  independent  variable  5 to 
replace  s by  the  relationship 


d?  T)  ds 


(2.31) 


en,  on  substituting  liquations  (;"\;';')  and  (.'.  >0)  into  Equation  (0.2  >) 


and  differentiating  with  respect  to  ? , we  obtain 
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It  is  convenient  to  solve  this  equation  for  5 in  terms  of  9 , 

e = x(g)  , (2.33) 


rather  than  vice  versa.  Equation  (2.32)  becomes 
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which  may  be  integrated  once  to  give 
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)d9'  , 
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if  we  assume  that  9=0  (4>=0)  and  X = 0 (fT=0)  at  s = 0 . He  find 
from  Equations  (2.28),  (2.29)  and  (2.30)  that 
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(2.3b) 
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Hence  Equation  (2.3b)  becomes 
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(2.37) 


It  is  now  convenient  to  introduce  a specific  form  for  F(Y): 


f(y)  = k(yq+y)  . 


(2.38) 
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This  is  a power-law  distribution  at  high  energy  which  flattens  at  low 

energy,  with  the  "knee"  characterized  by  . 

We  introduce  the  symbol  H(Y,s)  for  the  flux  of  electrons 
-2  -1 

(cm  ' s “)  of  energy  exceeding  eY  at  the  position  s : 


00 

H(y,s)  = | /,(,'♦  e(s)) 


dV'  . 


(2.39) 


If  the  initial  flux  is  written  as  H^(Y)  , we  find  that 


+ Y)'v+1 


so  that  the  total  particle  flux  is  given  by 


II  f \;f  “Y+l 

Ho(o)  = TyHVYo 


(2.90) 


(2.41) 


With  the  form  of  Equation  (2.38)  for  f(Y)  , Equation  (2.37) 


integrates  to  give 


Y -1  me 
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(2.42) 


We  easily  obtain  from  Equation  (2.42)  an  expression  for  the  (negative) 
electric  potential  9 in  terms  of  the  resistivity  weighted  distance 
measure  5 : 


■ (*! 


Hence  from  Equation  (2.39),  we  find  that 


(2.43) 
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On  noting  that  tho  o Lee  trio  current  curried  by  tlie  stream  is  reluted 
to  lt(Y,s)  by 


,is(s) 


- r h(o,b) 


wo  see  that 
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In  order  to  specify  the  current,  particle  flux,  and  electric  field 
a?,  functions  of  s , we  must  adopt  a specific  form  for  T](s)  . A con- 
venient approximation  to  the  density  and  temperature  structure  of  t he 

solar  atmosphere,  which  is  expressible  in  analytic  form,  is  provided  by 
the  constant  heat  flux  model.  If  we  now  assume  that  s measures  distance 

vertically  downward  from  the  corona,  ami  that  n n and  T T at 

7 0 0 

s 0 , tills  model  (Adams  and  Sturrock  I'JT')  yields  the  following 
express ions : 


T(s)  (T</:'  - t)F  s )V/'{  , 


„(s)  "J  T0/T(s)]  oxp  {-[<  To/:'  -bK8)  1 - V']}, 
‘>8  . -u 


C’.W) 


where  a =*■  1.0  “ , b °*  10  , and  F (ergs  cm  s ) is  the  downward 

heat  flux. 

The  resistivity,  in  modified  Gaussian  units,  may  be  derived  from  the 


expression  given  by  Splt/.er  (I'i;'): 


_ , rr-3/2 

T)  - «T 
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where  g IQ-'’*  * . Hence  we  find  from  Equation  (2.J1)  that  (j  is 


re  la  toil  to  s by 


e r 


L SL-  \t  - (ti72  - bFs)  V71 
( bF  L 0 ' 0 t J 


(2.'.’0) 


Our  model  is  then  completely  specified  by  the  choice  of  the  coronal 
temperature,  the  coronal  density,  the  coronal  heat  flux,  V , the  energy 
corresponding  to  f , and  the  injected  energetic  electron  flux.  For  the 
coronal  parameters,  we  adopt  values  typical  of  the  corona  above  an 


active  region  (Noyes  1971) : 


T ' 3x10  K , 


n ’*  10  cm  " , 


i ' -r  -i 

F ‘i  y 10  erg  cm  s 


We  choose  Y 1 to  correspond  to  21'  keV ; and  we  choose  Y 0 . ‘ ' . The 

fraction  of  the  beam  energy  deposited  and  the  total  energy  deposited  by 
Joule  heating  between  T j x 10l  K and  T j y 10*  K as  a function 

of  the  energetic  electron  flux  are  displayed  in  Figure  2.1.  For  a flare 

, 19. ‘i  2 

area  of  10  cm  , the  energetic  electron  flux  Inferred  from  a large 

l ' -1 

Impulsive  X-ray  burst  corresponds  to  ~ 10  1 cm  ‘ s (Hoyng  et  al.  197*')  • 
Figure  2.2  illustrates  the  energy  deposition  rate  due  to  Joule  heating 
as  n function  of  temperature  of  the  atmosphere  for  this  injected  energetic 
electron  flux.  The  ordinate  of  Figure  2.2  is  the  time  required  to  raise 
the  ambient  plasma  temperature  by  10 1 K,  if  the  plasma  were  heated  at  the 
steady  state  rate.  As  we  will  see  (cf.  Chapter  J),  the  heating  rate 


decreases  as  the  tempo  rat  lire  of  the  plasma  Increases,  so  the  ordinate  ol' 


figure  Is  only  representative  of  the  heating  rate  Immediately  after 

the  beam  is  turned  on. 

IVe  can  check  the  assumption  that  Coulomb  collisions  are  not  Impor- 
tant for  the  energetic  electrons  in  the  beam.  Since  the  reverse  current 

losses  are  proportional  to  the  resistivity  for  a constant  current  density 

- -i/p 

these  losses  are  proportional  to  T . 1'he  Coulomb  eollisional  losses 
tor  energetic  electrons  of  the  same  kinetic  energy  are  proportional  to 
u . Therefore,  we  expect  the  ratio  of  reverse  current  losses  t o col  - 

5 

lisional  losses  to  be  proportional  to  { nT  ) . Reverse  current 

losses  will  be  more  important  than  Coulomb  eollisional  losses  for  an 
energetic  electron  in  the  beam  it 

a lo"°'’(v/vt)*-(vtl'vt)  l , 1) 

where  V is  the  velocity  of  the  energetic  electron,  V is  the  electron 
thermal  velocity,  and  V,  icf.  liquation  I'.lO)  is  the  reverse  current 

it 

drift  velocity  (lloyng  et  al.  1 > V')  . As  we  expected,  for  the  same  kinetic 

5/;\  -1 

energy  and  current  density,  o is  proportional  to  (,nT  ) since 

1 /;'  -l 

V 'x  T and  V 'x  u . It  we  del  tne  the  Injected  energetic  electron 
t d 

I lux  as  the  flux  ol  electrons  with  kinetic  energies  greater  than  eH 

0 

then  from  liquation  (l  . ic)  we  find 
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Since  t hi'  reverse  current  drift  velocity  is  related  t o the  current 


density  by 


(2. ‘>3) 


we  may  write  the  drift  velocity  in  terms  of  the  injected  energy  flux  as 


oY-J-  yoY-^c 

V ‘ H_,  1 + ^-TT L 
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For  the  adopted  values  Y£!.‘'  and  eY^=2‘'  keV,  we  find  that  the  ratio 
of  reverse  current  losses  to  Coulomb  collisional  losses  (o)  for  n 


beam  electron  with  kinetic  energy  2' ' keV  in  the  adopted  constant  heat 


flux  model  atmosphere  is 


a li 


he 
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In  Figure  2.3,  the  energy  at  which  a 1 is  plotted  as  a function  of 


temperature  for  several  values  of  II  . We  see  that  for  any  energetic 

r. 

electron  flux  we  have  considered,  the  energy  at  which  Coulomb  collisions 
are  as  important  as  the  reverse  current  losses  for  the  energetic  electrons 


is  reasonably  low,  indicating  that  our  assumption  that  Coulomb  collisions 


may  be  neglected  is  an  adequate  approximation. 


3.  REVERSE  CURRENT  HEATING 

3.1  Generalization  of  Steady  Model  to  Time  Dependent  Case 

As  we  have  indicated,  for  the  energetic  electron  fluxes  required  to 
account  for  the  observed  X-ray  flux  by  thick-target  bremsstrahlung,  the 
ambient  plasma  is  rapidly  heated  by  the  reverse  current.  The  rate  at 
which  the  background  plasma  is  heated  by  the  reverse  current  depends  on 
the  beam  current  density  and  the  ambient  plasma  density  and  temperature. 

1/P 

If  the  ratio  of  to  the  electron  thermal  velocity  (v^  e=  (SkT^/m^)  ) 

is  large  enough,  the  background  plasma  may  be  unstable  to  the  growth  of 

electrostatic  plasma  turbulence  which  can  dramatically  enhance  the  plasma 

resistivity  and  therefore,  the  reverse  current  heating  rate.  For  example, 

the  reverse  current  will  be  unstable  against  the  excitation  of  ion- 

acoustic  or  electrostatic  ion-cyclotron  turbulence  unless  for  T and 

e 

T the  electron  and  ion  temperatures,  respectively,  (Kindel  and  Kennel 

1971) 


d t,  e 
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*p  S* 
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.1  T.  (ion-acoustic  turbulence) 
x ' 

• 9 

for 

rp 

e 

•3  T (ion-cyclotron  turbulence) 
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T =* 
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T^  (ion-cyclotron  turbulence) 

.1 

for 

rp 

e 

3 T^  (ion-cyclotron  turbulence) 

.05 

for 

T =“ 
e 

10  T (ion-acoustic  turbulence) 

Reverse  current  heating  is  a self  quenching  process.  If  the  reverse 
current  is  stable  against  the  growth  of  electrostatic  turbulence,  then, 
as  the  plasma  is  heated  by  the  reverse  current,  the  resistivity  decreases 
and  the  reverse  current  losses  are  reduced.  If  the  reverse  current  is 
unstable  to  the  growth  of  electrostatic  turbulence,  the  plasma  will  be 


heated  until  t he  instability  criterion  is  no  Longer  satisfied.  The 
heating  of  the  plasma  will  also  cause  a pressure  imbalance.  The  time 
T (s)  for  tlie  plasma  to  respond  to  changes  of  pressure  by  bulk  motions 
can  be  estimated  from 

T~U'V  > o.u 

where  L is  a characteristic  length  and  V is  the  ion  thermal  velo- 

city.  Kven  for  a temperature  as  large  as  10  K,  this  time  is  long 

^10  s)  compared  with  the  heating  time  for  a length  scale  of  10  ‘ cm, 

so  that  the  plasma  density  will  not  change  appreciably  during  the 

heating.  Since  we  expect  reverse  currents  to  be  established  locally  on 

-0 

time  scales  on  the  order  of  a plasma  period  ( ^ 10  s)  which  is  much 
shorter  than  the  time  scale  for  heating  of  the  plasma  (S  10  ‘ s),  it 

should  be  a reasonable  approximation  to  use  the  results  of  Chapter  2 
for  the  instantaneous  velocity  distribution  of  the  energetic  electrons 
as  a function  of  distance  from  the  injection  point. 

We  have  calculated  the  heating  title  to  reverse  currents  for  two 
injected  energetic  electron  fluxes  (ll  ) . The  heating  rate  was  taken 

r. 

to  be  Just  that  which  results  from  the  Ohmic  losses  suffered  by  the 
reverse  current  and  is  given  by 


dr 

at 


e 

mi  K 
e 


).Y 
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The  electron  and  ion  temperatures  were  assumed  to  be  equal.  We  shall 
say  more  about  this  assumption  later.  At  each  time  step  the  current  at 
each  spatial  grid  point  was  calculated  using  Equation  (p.-te).  The  time 
step  was  regulated  so  that  the  largest  change  in  temperature  at  any  grid 

!1 


L.1  ► 


lower  energetic  electron  flux  corresponds*  roughly  to  the  initial  heating 


I 


l 


rate  shown  in  Figure  2.1'. 

Figure  ^.1  shows  the  temperature  as  a function  of  I for  two  times, 

Is  and  4s  after  the  injection  of  the  beam.  The  energetic  electron  flux 
used  in  the  calculation  of  the  results  displayed  in  Figure  3.2  is  four 
times  that  used  for  Figure  j.l.  Figure  3.2  displays  the  temperature 
after  .2'  s and  Is  corresponding  to  the  same  total  energy  input  as  the 
curves  for  Is  and  .s  in  Figure  j.l.  Thermal  conductivity  was  neglected 
in  these  calculations,  but  computer  runs  with  thermal  conductivity 
included  indicated  that  thermal  conductivity  did  not  have  significant 
effects  for  the  short  time  scales  ';s)  involved  in  here  (see  Appendix  A), 


3.2  Anomalous  Resistivity  and  Reverse  Current  Heating  Rate 

The  electrical  resistivity  used  in  the  calculations  depended  on  the 
reverse  current  drift  velocity  as  indicated  below: 


V , SljV 
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where  V . - (2KT. /m  ) ' for  T the  ion  temperature,  m is  the 

t,  i i i i i 

proton  mass,  T|  is  the  resistivity  due  to  Coulomb  collisions  derived 
by  Spitzer  (I9b2),  and  T|^  is  an  anomalous  resistivity  due  to  the 
presence  of  electrostatic  ion-cyclotron  turbulence  calculated  by  lonson 
(197b) . For  the  purposes  of  calculating  the  value  of  the  anomalous 
resistivity  we  have  adopted  B 100  gauss,  a reasonable  value  for  the 
pre-flare  corona.  Since  we  are  considering  a flux  tube  of  constant 
cross  section,  the  field  is  the  same  for  all  values  of  s , the  distance 


A 


h 1 


from  the  injection  point.  Kor  the  smaller  energetic  electron  flux,  the 
reverse  current  drift  velocity  did  not  exceed  the  critical  velocity  for 
the  onset  of  electrostatic  ion-cyclotron  turbulence.  In  this  case  the 
temperature  of  the  tenuous  coronal  plasma  was  raised  by  a factor  of  «*-  ”, 
but  most  of  the  beam  energy  was  deposited  in  the  dense  portion  of  the 
model  atmosphere. 

The  larger  energetic  electron  flux,  however,  caused  the  reverse 
current  drift  velocity  to  exceed  the  critical  velocity  for  the  onset  of 
electrostatic  ion-cyclotron  turbulence  in  the  low  density  portion  of  the 

i 

atmosphere,  resulting  in  an  anomalous  resistivity  and  an  order  of  rnagnl- 
v tude  increase  in  the  temperature  in  these  regions  in  a relatively  short 

i 

time.  Since  Coulomb  collisions  were  neglected  in  this  calculation,  the 

I 

heating  of  the  denser  portion  of  the  atmosphere  is  not  calculated  accu- 

rntely  after  the  first  few  tenths  of  a second  (also  see  Appendix  ll) . If 

collisions  were  taken  into  account  for  the  primary  electrons  in  the 

beam,  the  heating  of  the  denser  regions  below  the  corona  would  be  more 

localized  and  higher  temperatures  would  be  reached.  However,  these 

results  Indicate  that  an  energetic  electron  beam  may  significantly  heat 

the  low  density  coronal  plasma  much  more  rapidly  than  would  be  calculated 
I 

from  considering  only  the  effects  of  Coulomb  collisions  on  the  beam 
e loot  rons . 

The  time  for  electron  and  ion  temperatures  to  equilibrate  by 
Coulomb  collisions  assuming  only  one  species  rather  than  both  species 
are  heated  as  we  have  assumed  may  be  estimated  (Spit/.er  ! *•;')  from 


Tor  the  temperatures,  densities,  and  the  time  scales  considered  liere, 
Coulomb  collisions  alone  will  not  establish  equal  electron  and  ion 
temperatures.  We  have  taken  the  electron  and  ion  temperatures  to  be 
equal  for  computational  convenience;  however,  and  must,  therefore, 
address  the  question  of  whether  one  species  is  preferentially  heated. 

Kor  the  case  depicted  in  figure  ■>.!,  for  which  the  resistivity  is 
lust  classical  iSpltzer  resistivity,  only  the  electrons  arc  heated  at 
first.  Accord  1 nit  to  Kquntion  ( -i.  ),  the  ions  are  not  likely  to  be 
heated  significantly  in  turn  by  energy  exchange  with  the  electrons.  The 
heat  capacity  of  the  plasma  Is  therefore  reduced  by  a factor  of  and 
the  times  given  in  figure  1.1  should  simply  be  reduced  by  a factor  of  2. 

The  situation  in  which  plasma  turbulence  develops,  as  for  the  case 
depicted  in  figure  >.2,  Is  considerably  more  complicated.  As  we  have 
indicated,  the  critical  drift  velocity  for  the  onset  of  electrostatic 
ion  acoustic  or  Ion-cyclotron  turbulence  depends  on  the  ratio  of  the 
electron  and  ton  temperatures.  dust  what  happens  when  this  drift  velo- 
city is  exceeded  is  not  well  understood,  however. 

The  anomalous  resistivity  which  we  have  assumed  to  result  from  the 
presence  of  electrostatic  ion-cyclotron  turbulence  was  calculated  by 
I onseti  (l')|’(  ) under  the  assumption  that  the  turbulence  saturates  by  ion 
resonance  broadening  (bum  and  Dupree  llllo)  and  that  the  electron  and  ion 
temperatures  were  equal.  Palmadesso  et  al.  on  the  other  hand, 

made  the  first  of  these  assumptions  and  calculated  heating  rates  of 
electrons  and  Ions.  They  found  that  the  ions  are  heated  much  more 
rapidly  than  the  electrons,  and  Papadopoulos  ) has  subsequently 

cone  lutled  that  the  instability  turns  off  when  the'  ton  heating  has 


proceeded  to  the  point  at  which  the  instability  criterion  is  no  longer 
satisfied.  If  only  the  ions  are  heated,  the  situation  will  differ  from 
that  depicted  in  Figure  j.2.  The  temperature  plotted  should  be  inter- 
preted as  the  ion  temperature  (note  that  this  affects  the  calculation  of 
the  expected  excitation  and  ionization  rates)  and  the  times  given  reduced 
by  a factor  of  2 for  the  same  reason  those  in  Figure  j.l  should  be 
reduced  if  only  the  electrons  are  heated. 

It  has  also  been  suggested  that  the  ion-cyclotron  turbulence  satu- 
rates, not  by  ion  resonance  broadening,  but  by  the  formation  of  a plateau 
on  tl»e  electron  velocity  distribution,  instead,  in  which  case  no  signi- 
ficant anomalous  resistivity  results  ( Papadopou  los  ll)'7T).  If  this 
happens,  then  as  in  the  case  without  plasma  turbulence,  only  the  electrons 
are  heated  at  first,  at  a rate  given  approximately  by  classical  resisti- 
vity. In  tliis  case,  however,  larger  electron  beam  current  densities 
must  have  been  involved  to  begin  with  in  order  for  the  reverse  current 
drift  velocity  to  have  exceeded  the  critical  velocity  for  the  onset  of 
ion-cyclotron  turbulence.  Since  ,j  is  larger  than  in  the  case  without 
turbulence,  the  classical  heating  rate  is  higher  for  this  case.  If  the 
electrons  are  heated  sufficiently  in  this  manner,  the  critical  drift 
velocity  for  the  onset  of  ion-acoustic  turbulence  will  be  exceeded.  In 
that  case,  the  electrons  will  be  heated  until  the  criterion  for  insta- 
bility is  no  longer  satisfied,  or  until 

Vd  *■  Cs  ~ (kTe/mi)1/‘  » O-1) 

where  is  the  ion  sound  speed, 

s 


This  latter  scenario  for  rapid  electron  heating  would  apply,  for 
instance,  to  an  electron  beam  strength  equal  to  that  assumed  in  Figure 
j.2 . More  precisely,  assuming  the  ion-cyclotron  turbulence  does  satu- 
rate by  electron  plateau  formation,  a beam  of  this  strength  would  result 
first  in  electron  heating  given  approximately  by  the  results  in  Figure 
j.l  with  a time  scale  reduced  by  a factor  of  about  j£ . After  roughly 
s,  ion-acoustic  turbulence  would  develop,  resulting  in  rapid  heating 
of  the  electrons  to  a final  temperature  which  may  be  estimated  from 


o TO 

Te  - .yyk  - 10 u K . (3.7) 

In  short,  the  exact  behavior  of  the  ratio  of  the  electron  and  ion 
temperatures  is  not  well  understood  and  cannot  be  determined  without  a 
much  more  detailed  analysis  than  is  appropriate  for  the  present  work. 

We  have  assumed  that  the  electron  and  ion  temperatures  are  about  equal 
as  a useful  and  reasonable  approximation  with  which  to  estimate  the 
magnitude  of  the  reverse  current  heating.  As  discussed  above,  however, 
temperature  enhancements  much  larger  than  those  depicted  in  Figures  \.l 
and  j.2  are  possible. 


■'0 
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k.  CONCLUSIONS  AND  SUGGESTIONS  FOR  FURTHER  RESEARCH 

We  have  examined  a simple  model  for  the  production  of  impulsive  hard 
X-ray  bursts  during  solar  flares.  The  model  involves  a beam  of  energetic 
electrons  propagating  from  the  corona  to  the  chromosphere.  We  have 
found  that  if  this  beam  is  to  exist,  the  current  carried  by  the  beam 
electrons  must  be  neutralized  by  a reverse  current  in  the  background 
plasma.  The  requirement  that  the  reverse  current  exist  has  two  conse- 
quences that  have  not  been  previously  recognized  in  the  context  of  this 
type  of  simple  model  of  impulsive  hard  X-ray  bursts.  The  reverse 
current  heats  the  ambient  plasma  and  the  electric  field  that  is  developed 
to  drive  the  reverse  current  decelerates  the  primary  electrons.  Joule 
heating  by  the  reverse  current  is  a more  effective  mechanism  for  heating 
the  tenuous  coronal  plasma  than  Coulomb  collisional  losses  from  the 
energetic  electrons,  because  the  ohmic  losses  are  caused  by  thermal 
electrons  in  the  reverse  current  which  have  much  shorter  mean  free  paths 
than  do  the  energetic  electrons. 

We  have  found  that  the  time  scale  for  heating  the  ambient  plasma 
by  reverse  currents  can  be  comparable  with  the  time  scales  characteristic 
of  impulsive  X-ray  bursts  (Hoyng  et  al.  1976).  It  is  possible  that 
thermal  bremsstrahlung  from  the  rapidly  heated  plasma  can  account  for  a 
significant  portion  of  the  observed  impulsive  X-ray  flux.  Hence  this 
mechanism  can  offer  an  explanation  of  the  fact  that  some  flares  first 
produce  high-energy  X-ray  emission  near  the  top  of  a loop  rather  than  at 
the  footpoints  of  the  loop  (Brueckner  I976).  Another  important  conse- 
quence of  this  process  is  that,  if  thermal  emission  can  account  for  a 
substantial  fraction  of  the  impulsive  flux  up  to  ~ >0  keV,  then  the 
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number  of  electrons  required  to  produce  the  nonthermul  X-ray  flux  is 
greatly  reduced  (Brown  197s) • 
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The  time  scale  for  heating  can  also  be  short  compared  to  the 
ionization  times  of  the  plasma  ions  and  may  therefore  produce  non- 
equilibrium line-emission  strength  enhancements  of  lines  present  in  the 
plasma  spectrum  just  prior  to  the  rapid  heating  (Shapiro  and  Knight 
I97S) • These  non-equilibrium  effects  are  likely  to  be  observable  only 
if  plasma  turbulence  develops  causing  a large  enhancement  in  the  plasma 
resistivity  (Shapiro  and  Knight  197$) • 

We  have  made  several  simplifying  assumptions  in  order  to  facilitate 
the  calculations  presented  in  Chapters  2 and  j.  In  a more  realistic 
model,  some  or  perhaps  all  of  these  restrictions  could  be  relaxed.  We 
now  briefly  discuss  how  the  relaxation  of  some  of  these  assumptions  is 
likely  to  change  the  conclusions  we  have  drawn  and  suggest  possible 
extensions  of  the  work  we  have  presented  in  Chapter  j.  We  have  assumed 
that  all  the  electrons  in  the  beam  are  moving  in  the  same  direction,  or 
equivalently  that  they  have  zero  pitch  angle.  The  reverse  current 
arises  to  balance  the  flux  of  electrons  in  a given  direction  due  to  any 
anisotropy  in  the  energetic  electron  velocity  distribution.  If  the 
energetic  electron  velocity  distribution  is  nearly  isotropic,  no  signi- 
ficant reverse  current  will  arise  (see  for  example  Smith  and  Lilliequist 
197$) • Even  if  the  distribution  is  strongly  anisotropic,  but  the 
electrons  streaming  down  from  the  corona  to  the  chromosphere  have  non- 
zero pitch  angles,  the  Coulomb  collisional  losses  will  be  enhanced 
relative  to  reverse  current  losses  since  the  collisional  losses  are 
proportional  to  the  total  path  length  of  the  energetic  electrons  in  the 


atmosphere,  while  the  reverse  current  losses  are  proportional  to  the 
average  component  of  the  energetic  electron  velocity  along  the  field. 

Since  the  emergent  X-ray  spectrum  is  relatively  insensitive  to  the  angular 
distribution  of  the  energetic  electron  velocities  (hanger  and  Petrosian 

1977) ,  it  is  extremely  difficult  to  infer  the  reverse  current  drift 
velocity  from  measurements  of  the  X-ray  flux.  A more  detailed  discussion 
of  this  and  other  difficulties  in  inferring  the  reverse  current  drift 
velocity  from  X-ray  observations  can  be  found  elsewhere  ( lloyng  et  al. 

1978)  • 

We  have  neglected  the  effects  of  Coulomb  collisions  on  the  primary 
electrons.  As  Figure  £ . j demonstrates,  this  is  an  adequate  approxima- 
tion immediately  after  the  flux  of  energetic  electrons  is  initiated; 
however,  Coulomb  collisions  become  relatively  more  important  as  the 
plasma  is  heated  since  the  reverse  current  losses  are  reduced.  Until  a 
significant  increase  in  the  density  of  the  coronal  plasma  is  effected 
by  the  evaporation  of  material  from  the  chromosphere.  Coulomb  collisions 
are  unlikely  to  be  important  in  the  upper  portions  of  the  atmosphere. 

In  the  lower  lying  dense  regions,  Coulomb  collisions  will  rapidly  domi- 
nate over  reverse  current  losses,  and,  as  we  have  indicated,  affect 
the  heating  of  this  portion  of  the  atmosphere.  One  extension  of  the 
work  presented  in  Chapter  j that  should  provide  additional  Insight  into 
the  behavior  of  energetic  electrons  in  the  solar  atmosphere  during  flares 
would  be  to  perform  a calculation  similar  to  that  we  have  presented,  but 
include  the  effects  of  Coulomb  collisions  and  a distribution  ol'  pitch 
angles  for  the  energetic  electrons. 
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We  have  neglected  the  dynamics  of  the  background  plasma.  As  we 
have  indicated,  the  rapid  heating  of  the  plasma  can  cause  a large  pres- 
sure imbalance.  For  the  results  presented  in  Figures  3.1  and  3-P>  the 
pressure  is  a factor  of  ~ 20  higher  in  the  high  density  portion  of  the 
atmosphere  than  in  the  low  density  regions  indicating  that  evaporation 
of  high  density  material  would  occur  if  the  dynamics  of  the  ambient 
plasma  were  accounted  for.  This  would  not  have  a large  effect  on  the 
calculations  presented  in  Chapter  3 because  the  time  scales  considered 
are  so  short.  However,  on  longer  time  scales  mass  motions  in  the  atmo- 
sphere could  have  important  effects.  Previous  work  with  fluid  dynamic 
models  of  solar  flares  (for  example  see  Kostyuk  and  Pikel'ner  197‘'» 
Kostyuk  197',  Craig  and  McClymont  197c)  has  not  included  reverse  current 
losses.  The  development  of  a numerical  fluid  dynamic  model  of  the 
solar  atmosphere  heated  by  a beam  of  energetic  electrons,  including 
reverse  current  losses  could  provide  valuable  information  about  the 
formation  of  the  quasi-thermal  soft  X-ray  plasma  that  is  produced  during 
solar  flares. 

We  have  not  calculated  either  the  radiation  from  the  heated  plasma 
or  the  bremms trahlung  from  the  energetic  electrons.  Since  almost  all 
the  information  we  now  have  and  are  likely  to  accumulate  in  the  fore- 
seeable future  about  solar  flares  comes  from  the  observation  of  the 
emitted  radiation,  it  would  be  useful  to  calculate  the  emitted  radiation 
from  any  realistic  model  to  ascertain  to  what  degree  it  resembles  the 
solar  atmosphere  during  a flare. 

More  realistic  models  than  those  we  have  considered  that  include 
the  effects  of  Coulomb  collisions,  the  dynamics  of  the  background  plasma, 


a reasonable  magnetic  fielil  configuration,  radiation  and  thermal  conduc- 
tion are  necessary  to  account  for  the  complicated  phenomena  that  are 
observed  in  solar  flares.  However,  our  study  of  the  reverse  current 
and  the  heating  it  can  cause  indicates  that  reverse  currents  can  play 
an  important  role,  at  least  in  the  initial  heating  of  the  solar  plasma 


during  a flare. 
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Appendix  A 

NUMERICAL  AND  COMPUTATIONAL  METHODS 

As  we  have  indicated  in  Chapter  3,  the  results  for  the  time  depen- 
dent case  are  calculated  by  using  the  steady  state  results  for  the 
current  as  a function  of  distance  from  the  injection  point  and  calcula- 
ting the  change  in  temperature  from  a suitably  discretized  form  of 
equation  (3.2).  In  reality,  the  calculation  is  done  for  the  more 
general  case  of  partially  ionized  hydrogen.  Since  the  reverse  current 
heating  calculation  is  only  accurate  in  the  tenuous  high  temperature 
portion  of  the  atmosphere,  this  generalization  did  not  have  a substan- 
tial effect  on  the  results  of  the  calculation.  However,  the  manner  in 
which  the  partial  ionization  is  included  could  in  principle  be  accurate 
in  any  astrophysical  plasma  that  is  sufficiently  tenuous  that  the  gas 
is  optically  thin  to  its  own  radiation,  photo-excitation  and  ionization 
are  unimportant  and  collisional  de-excitation  can  be  ignored.  The 
ionization  state  of  the  plasma  is  then  a function  of  temperature  only 
provided  non-equilibrium  effects  can  be  ignored.  The  only  elements  in 
astrophysical  plasmas  that  are  sufficiently  abundant  for  their  ioniza- 
tion potential  to  affect  the  heat  capacity  of  the  gas  are  hydrogen  and 
helium.  Only  hydrogen  is  included  in  the  present  calculation,  but  since 
the  effects  of  partial  ionization  on  the  heat  capacity  are  included  via 
a pretabulated  interpolation  table  (discussed  below)  the  effects  of 
helium  could  be  included  with  only  minor  modification.  The  modified 
version  of  equation  (3.2)  actually  solved  numerically  is 
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where  T is  defined  by 
E 


(A.l) 


(1  + x)T  + X 


(A. 2) 


where  X(t)  is  the  fraction  of  the  hydrogen  nuclei  that  are  ionized  and 
E is  the  ionization  potential  of  hydrogen.  That  is, the  thermal 

energy  content  of  the  plasma  per  cubic  centimeter  is 


eth  = i nk  te 


(A.3) 


The  temperature  is  obtained  from  T via  the  interpolation  tables  men- 
tioned above,  and  it  is  obvious  that  the  inclusion  of  helium  only  in- 
volves calculating  a different  interpolation  table.  In  fact  we  have 


included  only  hydrogen  and  used  the  expression  given  by  Moore  and  Fung 


(1972)  for  X(T) 


= |l  + 10  *'  e [.*88  + In  f?  + .A698& 
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where  f-=li800/t.  Then  T is  implicitly  defined  as  a function  of  T 

E 

by  Equations  (A.j)  and  (A. 4). 

Spitzer  gives  the  resistivity  of  a hydrogen  plasma  as: 
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where  A is  defined  by 
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and 
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The  calculation  of  the  current  as  a function  of  distance  depends 
only  on  the  resistivity  weighted  distance  measure  P . In  Chapter  2 we 
were  able  to  write  an  analytic  expression  for  f as  a function  of  s , 
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but  in  the  present  ease  the  resistivity  varies  with  time. 


The  value  of 


5 at  the  ith  grid  point  is  approximated  by 
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where  superscripts  refer  to  time  steps  and  subscripts  refer  to  spatial 
grid  points,  and  0 . So  long  as  the  reverse  current  drift  velocity 

is  less  than  the  critical  velocity  for  the  onset  of  ion  cyclotron  turbu- 
lence, the  calculation  of  f •’  in  this  manner  is  straightforward.  How- 
ever, when  the  background  plasma  is  unstable  to  the  growth  of  ion  cyclo- 
tron turbulence,  the  situation  is  somewhat  more  complicated.  In  this 
case  the  value  of  ’v  depends  on  the  current,  and  a transcendental 

t ’ 

equation  must  be  solved  to  find  Tf1  from  Equations  (r.-k),  (2 . V))  and 
the  result  for  anomalous  resistivity  due  to  ion  cyclotron  turbulence 
(ionson  lO’o) 
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where  C,  = (eB/m  c)  and  (Unn  e/m  ) *■  , we  find  that  J'  is 
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If  we  define  G(j'^)  by 
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then  when  C.(j'!)=0  , jj  satisfies  Equation  (A.lj).  When  the  current 
calculated  neglecting  anomalous  resistivity  corresponds  to  a drift  velo- 
city that  is  greater  than  V'1  , we  take  an  initial  estimate  for  JJ  , 

J/J  : 1 

J i 


J/J  = — - e n.  , 

i c l i 7 


(A. 15) 


and  refine  this  estimate  by  application  of  Newton's  method  to  Equation 
(A.14).  Examination  of  Equation  (A.lj)  shows  that  Newton's  method  will 
always  converge  for  this  initial  estimate  and  the  convergence  is  usually 
reasonably  rapid,  i.e.  usually  o or  fewer  iterations  are  required. 

The  functions  needed  for  the  calculation  [ TL,  TM,  X and  the  impli- 
citly defined  T(T  )]  are  evaluated  by  cubic  interpolation  on  pretabula- 
ted  tables.  The  method  used  is  dependent  on  the  architecture  of  the 
IBM  3b0-i70  series  computers  and  the  internal  representation  of  double 
precision  floating  point  numbers  used  on  these  machines.  The  use  of 
pretabulated  functions  is  considerably  faster  than  calls  to  the  FORTRAN 
library  routines  that  would  otherwise  be  necessary.  This  is  particularly 
true  in  the  case  of  the  implicitly  defined  function  T(Tp)  which  would 
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have  to  bo  solved  iteratively  at  each  spatial  grid  point  for  each  time 
stop.  The  internal  representation  of  double  precision  floating  numbers 
on  HIM  Y'0-.\'|’0  computers  is  presented  diagramaticully  below. 

hexadecimal  exponent  (excess  6Ji) 

0 1 7 8 63 

lfi  digit  hexadecimal  fraction 

sign  bit 

FTG.  A.1.  Internal  representation  of  double 
precision  floating  point  numbers  on  IMM  joO 
ami  j|'0  series  computers. 

In  tlu>  Interpolation  procedure,  the  first  lo  bits  (bits  0-1'  ) are 
extracted,  an  offset  subs  t me  toil  and  the  result  treated  us  a double 
word  displacement  from  t lit'  base  address  of  an  interpolation  table.  The 
remaining  18  bits  (Li  -t  ■')  are  used  to  form  a floating  point  fractional 
displacement  (frac)  from  the  largest  value  of  the  temperature  for  which 
thi'  function  is  tubulated  which  is  smaller  than  the  value  of  the  tempera- 
ture for  which  flu'  value  of  the  function  is  desired.  The  value  of  this 
displacement  is  such  that  0 ^ frac  1 ; frac  is  used  to  calculate 
weights  for  the  four  nearest  tabulated  values  of  the  function  in  a cubic 
polynomial  interpolation.  Once  the  weights  for  the  cubic  interpolation 
are  calculated  only  1 double  precision  floating  point  multiplies  (»*•  .ol  ps 
each  on  HIM  j',’0-1.1'8  with  high  speed  multiply)  and  -i  adds  (~-  . jO  ps  each) 
are  required  to  produce  an  Interpolated  value  from  a table.  Since  the 
weights  are  to  be  calculated  for  Th,  TM  and  X they  are  also  used  to 
calculate  the  critical  velocity  for  t hi'  onset  of  ion-cyclotron  turbulence, 
flits  would  require  a call  to  the  FOKTKAN  library  subroutine  "PSQKT"  which 
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Is  sufficiently  fast  that  interpolation  would  be  slower  for  the  calcula- 
tion of  the  square  root  alone.  However,  since  the  weights  must  be  cal- 
culated for  TL,  x j TM  and  TE,  interpolation  is  faster  than  a call  to 
"DSQRT"  because  the  weights  are  effectively  "free'1  for  this  calculation. 
The  semi-logarithmic  tabulation  scheme  allows  interpolation  from 
T-U.09b  x 10^  K to  6.7IO  x 101'  K with  a maximum  relative  displacement 
from  a value  of  T for  which  the  function  is  tabulated  of  ~ 3$  with 
only  820  table  entries.  In  fact  some  of  the  820  entries  are  never  used 
due  to  the  nature  of  the  signed  magnitude  normalized  representation  of 
floating  point  numbers  on  these  machines,  but  the  reason  for  using  this 
sort  of  tabulation  scheme  is  that  a reasonably  large  range  can  be 
covered  with  relatively  few  table  entries,  and  the  correct  tabulated 
values  can  be  accessed  extremely  rapidly. 

Listings  of  two  main  programs  and  several  subroutines  are  provided 
for  the  sake  of  completeness.  All  of  the  time  consuming  routines  have 
been  hand  coded  in  assembly  language.  Routines  that  perform  initial- 
ization and  diagnostic  functions  as  well  as  the  main  program  are  coded 
in  FORTRAN.  The  first  main  program  produces  the  tables  that  are  required 
for  the  cubic  interpolation.  The  second  main  program  reads  in  the  inter- 
polation tables,  model  parameters  and  starting  values.  The  starting 
values  used  initially  are  from  the  steady  state  model  atmosphere  described 
briefly  in  Appendix  B. 

The  assembly  language  programs  calculate  the  current  at  each  spatial 
grid  point  (CURCAL),  calculate  the  change  in  temperature  at  each  point 
and  determine  the  time  step  (TESTP)  and  write  out  the  arrays  at  the 
designated  intervals  (TOUT).  In  addition  the  calcuiation  of  the  current 
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(CURCAL)  requires  taking  the  -(y-4) 'Y  power  of  a number,  which  if  done 
with  FORTRAN  library  routines  would  require  taking  the  natural  logarithm 
and  exponentiating.  Both  the  library  routines  "DLOU"  and  ”l)KXP"  are 
slower  than  "DSQRT"  so  an  assembly  language  routine  was  written  that 
calculates  the  j/1'  power  of  a number  (Fj'),  the  routine  is  called  by 
Cl'RCAL.  The  subroutine  DIAli  is  used  primarily  for  monitoring  the  per- 
formance of  the  model  during  program  changes  and  subsequent  debugging. 

In  production  runs  it  could  be  replaced  with  a subroutine  that  does 
nothing  (i.e.  returns  as  soon  as  it  is  called)  without  affecting  the 
model  calculations;  therefore  it  is  not  reproduced  here.  The  FORTRAN 
subprograms  initialize  the  array  containing  T„  (EINIT)  and  read  in  the 
starting  values  ( I N IT  and  RDR) . The  calculation  that  includes  thermal 
conductivity  which  is  referred  to  in  Chapter  j is  not  discussed  in  detail 
here.  In  order  to  avoid  undue  restriction  on  the  time  step  f to  satisfy 
the  Courant-Friedrichs-Lewy  condition  - see  Richtmyer  and  Morton  ( 1_VX ' T ) 3 > 
the  method  employed  is  implicit  and  requires  the  Inversion  of  a tridia- 
gonal matrix  (dimension  84c)  and  is  rather  slow.  Runs  with  this  program 
indicated  thermal  conduction  did  not  change  the  results  substantially 


so  these  routines  are  not  reproduced  here. 


oooo  ooo  ooooooo 





THIS  PAGE  IS  BEST  QUALITY  FRACriCABlX 
FROM  COPY  FURNISHED  TO  DDC  


TABULATION  ROUTINE 


IMPLICIT  REAL'S  (A-H.O-Z) 

THIS  PROGRAM  CALCULATES  SEMI =LOGAR I T HMI C TABLES  NEEDED  FOR 
CALCULATION  OF  REVERSE  CURRENT  HEATING  WITH  RESISTIVITY  THAT 
IS  A FUNCTION  OF  THE  DRIFT  VELOCITY. 

THE  TABLES  ARE  WRITTEN  OUT  TO  LOGICAL  UNIT  9 

REAL'S  T L C 820 ) , TM(820) , VI TH(820) , CHIN (820) . CINV(  564 ) 

REAL' 8 D T 0/Z  4 3 1 0000000000000/,  T BO/Z  4-4 1 0000000000000/ , 

. KAY/1  . 3805-ID-  16/,  EC/4. 8029SD-  10/,  MH/1 . 67530S9D-2-1/. 

. PI/Z413243F6ASSS5A31/.MF/1  . 67252D- 2 4/ , ME/ 9 . 1 09D-  28/ . 

. HBAR/1 . 05-1500-27/,  MU,  El  ON, ONE  3/ZC  05555555555555  5/, 

. C/2. 99792 50  10/, CS I G. LSI G.K 32, CKAP.LNS1.LNS2, DCON.BETA.PS  I 
INTEGER  M LI  M (-41/2-12. 2-12, 2-12,  51/ 

9001  FORMAT ( 1 0A8 ) 

CALCULATE  CONSTANTS 

MU=(ME'MP)/(MEFMP) 

EI0N  = (MU'EC"4)/(2.  P0'HBAR*'2) 

TI0N=(2.D0'EI0N)/(3.D0'KAY) 

CSIG-0. 500 'PI 
K32=KAY*DSQRT(KAY) 

C S I G = C 0 . 5DL1'CSI  G'DSQRT(CSI  G 'ME  ) ' E C ' E C ' C ) /K  32 
LSIG=(3.D0'K32)/(2.D0'EC'EC'EC'DSQRT(PI ) ) 

CVI TH=2 . DO' 169. DO'KAY/MP 
C CH I N = 1 . 5'KAY 
LNS 1 = DLOG ( LS I G ) 

LNS2  = DL0G(LSIG'-1.  205) 

D C 0 N = 1 . DO  / ( -1 . 5D5'  1 . 58D5) 

CALC  TABLES : ELECTRICAL  CONDUCTIVITY  (TL.TM).  CRITICAL 
VELOCITY  (VITH'13.)  AND  INVERSE  IONIZATION  FRACTION  (CHIN). 

DT=DT0 

TO=TBO 

DO  20  11=1.4 

K = ( 256' ( 1 1 - 1 ) ) + 1 
L=K+LIM( II ) 

T=T0-0T 
DO  10  J=K . L 

3E  T A = 1 . 58D5/T 

PSI=4. 5D5/( BET A'0EXP( BETA) '( . 428SDO+ . 500' DLOG ( BE T A ) 

+ . 469SP0'BETA"0NE3) ) 

VI  TH(J)=DSQRT (CVI TH'T ) 

CIIIN(J)=CCHIN'(  1 . 00+ PS  I )/PSI 
CHI  =rs  I / C 1 . DOH’SI  ) 

IF(T.GT.4.2D5)G0T0  5 
TM( J)=CSIG/(T'DSQRT(T) ) 

TL(J)=TM(J)'(LNS1+ 1 . 500'DL0G(T )- . 5P0'0L0G(CH1 ) ) 

GOTO  10 

5 TM(J)=CSIG/(T*DSQRT(T)) 

TL( J)=TM( J)'(LNS2+DLOG(T)-. 5D0'DL0G(CHI)) 


10 

T=T+DT 

T 0 = T 0 ' 1 6 . 

DO 

20 

DT  =DT* 1 6 . 

DO 

C CALCULATE  TABLES  FOR  CHI  INVERSE  ( ( 1 + CHI ) 'T  + CM I *T I ON  AS  TUNC  OF  T) 

C 

TNEU=TB0-0T0 
DT  =DT  0 
T 0 = T BO 

DO  40  11=1.3 

K = (256'( I I-  1 ) )+  1 
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L=K+LIM( 1 1 + 1 ) 

T=T0-DT 
DO  30  J=K.L 

T CH-4 . o-  16nNEW 
25  T0LD=TNEU 

BETA=1 . 58D5/TOLD 
EBETA=DEXP(BETA) 

B13=BETA**0NE3  „ 

TEMPI  =0.  4288D0+0. 5D0«Dl OG ( BE T A ) + . 4698D0*B13 
PS  I -A.  5D5/(BETA-*EBETA»TEnP1  ) 

C = PSI/( 1 . DO+PSI  ) 

DC  = 0C0N'iC'*C*BETA*BETA*EBETA*(  ( 1 . DO+BETA)* 
TEMPI  + (.500-. 1 56600*6 13)) 

TNEU  = TOLD-<  ( 1 . D0+C)n0LD  + C*TI0N-T)/(  1 . D0+C+ 
(T0LD+TI0N)'DC) 

IF  (DABS(TNEU-TOLD) . GT . TCH ) GOTO  25 
CINV(J)=TNEU 


30 

T=T+DT 

TO-TOM6. 

DO 

40 

DT-DT*16. 

DO 

WRITE  OUT  TABLES 

WRITE  (9. 900  DTI 

WR I T E ( 9. 900 1 ) TM 

WRITE(9.9001)VITH 

UR  I T E ( 9 . 900 1 ) C H I N 

WR I T E ( 9 . 9001  ) C I NV 

STOP 

END 
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REVERSE  CURRENT  HEATING  HA  I N ROUTINE 


IMPLICIT  REAL*8  (A-H.O-Z) 

THIS  PROGRAM  CALCULATES  REVERSE  CURRENT  HEATING  OF  A MODEL 
ATMOSPHERE  READ  IN  AS  UP  TO  102-1  VALUES  OF  TEMPERATURE  (T)  NUMBER 
DENSITY  ( N ) AND  DISTANCE  (S)  FROM  THE  INJECTION  POINT  (TOP  OF 
MODEL.  THE  FROGRAM  DOES  NOT  HAVE  TO  START  AT  TIME  0 (INJECTION 
TIME)  AS  THE  CURRENT  TIME.  TIME  STEP  AND  ITERATIONS  TO  THIS  POINT 
ARE  READ  IN  ALSO.  THE  PROGRAM  READS  IN  THE  MAXIMUM  NUMBER  OF 
ITERATIONS  TO  BE  PERFORMED  (NITER).  THE  ENERGETIC  ELECTRON  NUMBER 
FLUX  (EFLUX)  , PSIO  UHICH  CORRESPONDS  TO  AN  ENERGY  CHARACTERISTIC 
OF  A LOU  ENERGY  KNEE  IN  THE  ENERGETIC  ELECTRON  DISTRIBUTION 
(SEE  KNIGHT  AND  STURROCK  1977)  , FRAC.  THE  MAXIMUM  PERCENTAGE 
CHANGE  IN  THE  THERMAL  ENERGY  CONTENT  OF  THE  PLASMA  PER  HYDROGEN 
NUCLEUS  ALLOUED  AT  ANY  GRID  POINT  IN  ONE  TIME  STEP,  TIMMAX 
THE  MAXIMUM  TIME  FOR  THIS  RUN  (REAL  TIME  NOT  COMPUTER  TIME)  AND 
DTOUT.  THE  INTERVAL  AT  UHICH  THE  ARRAYS  CONTAINING  THE  TEMPERATURE 
AND  CURRENT  DENSITY  AS  UELL  AS  THE  CURRENT  TIME  AND  TIME  STEP. 

CALLED  SUBROUTINES: 

INIT  - READS  IN  STARTING  VALUES  OF  DENSITY,  TEMPERATURE  AND 

0 1 ST  AN  C E AS  UELL  AS  TIME,  TIME  STEP  AND  NUMBER  OR  PREVIOUS 
ITERATIONS. 

EINIT  - CALCULATES  INITIAL  TE  DEFINED  AS  ( 1 + CHI  )T  + 2*EI0N/3',K  FOR 
EACH  SPATIAL  GRID  POINT.  ENERGY  INPUT  INCREASES  TE 
AND  T IS  CALCULATED  FROM  CHINV. 

NOUT  - URITES  OUT  DENSITY  AND  DISTANCE  ARRAYS  AS  UELL  AS  INPUT 
PARAMETERS  (TO  FORTRAN  LOGICAL  UNIT  9) 

CURINT  - INITIALIZATION  FOR  CURCAL  (SEE  CURCAL) 

TEST  PI  - INITIALIZATION  FOR  TESTP  (SEE  TESTP) 

CURCAL  - CALCULATES  CURRENT  AS  A FUNCTION  OF  DISTANCE  USING 
STEADY  STATE  RESULTS  OF  KNIGHT  AND  STURROCK  AND  A 
RESISTIVITY  THAT  DEPENDS  ON  THE  REVERSE  CURRENT  DRIFT 
VELOCITY. 

TESTP  - UPDATES  TEMFERATURE  AND  ADJUSTS  TIME  INCREMENT  SO  THAT 

MAXIMUM  CHANGE  IN  TE  AT  ONE  GRID  POINT  IS  FRACME  AT  THE 
GRID  POINT 

D I AG  - OUTPUTS  A SMALL  SUBSET  OF  THE  CALCULATED  CURRENT  DENSITY 
AT  INTERVALS  DETERMINED  BY  VALUES  IT  READS  FROM  LOGICAL 
UNIT  5 - CAN  BE  RECOMPILED  UITHOUT  RECOMPILING  THE  REST 
OF  THE  PROGRAMS  AS  IT  DOES  NOT  AFFECT  CALCULATIONS. 

TOUT  - URITES  OUT  TEMPERATURE  AND  CURRENT  ARRAYS  AND  CURRENT 
TIME,  TIME  STEP  AND  ITERATIONS  TO  LOGICAL  UNIT  9 

CTOUT  - CLOSES  LOGICAL  UNIT  9 (I.E.  END  FILE  9) 


OECLARE  VARIABLES: 

REAL *8  KAY, ME , C , G AM , NORM, SFST . E F LUX  , PS  I 0 , DT OU T , 

. EL.EFACT ,NEUDT 

REAL  *8  T< 1024 ),N( 1024) ,J( 1024 ),S( 1024 ),OSIG( 1024), LN< 1024), 
. TE( 1024). TUP( 1024), SD( 1024), 

. TL(820) ,TM(820) . CNV ( 820 ) , V I TH ( 820) , C I NV ( 564 ) 

INTECERM  I ND  ( 2 , 1024) 

5001  FORMAT ( 5F7. 0) 

5002  FORMAT ( I 7) 
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9001  F ORMAT ( 1 0A8 ) 

C INITIALIZE  CONSTANTS:  BOLTZMANN'S  CONSTANT,  ELECTRON  REST  MASS, 

C ELECTRON  CHARGE  (ESU),  It  ERG/KE  V , SPEED  OF  LIGHT 

C 

KAY  = 1 . 38059D- 16 
ME  =9 . 10910-27 
E L =9 . 80298D-  10 
EFACT  = 1 . 60210D-9 
C = 2 . 99792  50  1 0 
C 

C READ  IN  MODEL  PARAMETERS 

C 

READ(5. 50021NITER 

READ! 5. 5001 ) EFLUX, PSI0, FR AC , T I MMAX , 0T0UT 
READ ( 8 , 900  1 ) T L 
READC8. 9001  )TM 
RE AD ( 8 , 900  1 ) V I TH 
READ ( 8 , 9001 ) CNV 
READC8, 9001  )CINV 
C 

C UNITS  OF  INPUT  PARAMETERS  ARE: 

C EFLUX  1.017  (CM**2  SEC)'*-'*— 1 , PSIO  IN  KEV,  FRAC  IN  PERCENT, 

C TIMMAX  IN  SEC  (MAXIMUM  T I ME ) , DTOUT  IN  SEC  (OUTPUT  INTERVALS) 

C 

C SCALE  INPUT  VARIABLES 

C 

EF  LUX -EF  LUX  * 1 .017 
PSIO-(FSIO*EFACT)/EL 
FRAC=FRAC*0. 0100 
C 

C CALCULATE  CONSTANTS  FOR  CALCULATION  OF  CURRENT 

C 

TEMPI -PS  l 0+PSI 0 
GAM=2 . 50U 
GAMM 1 = 1 . 500 

TEMP1=TEMP1*0SQRT( TEMPI ) 

TEMP2-PSI0*DSQRT (PSIO) 

NORM=(  EFLUX  * GAMM1  *-ME  *T  EMP  1 )/EL 
TEMP1=-(EL*-EL*N0RM)/(  GAMM  1 *ME  *C  ) 

J( 1 )=TEMP1/TEMP2 
T EMP2 -T  EMP  2 * PS  I 0 
TEMP3=-GAM*TEMP1 
C 

C INITIALIZE  TIME  AND  ITERATIONS 

C 

NEUPT  =0. DO 
I I T ER  = 0 
T I M = 0 . DO 


INITIALIZE  TEMPERATURE  AND  DENSITY 
NTAB=1029 

CALL  INIT(T,N,S.DELT.TIM,NIT,NTAB) 

OUTIME=DTOUT+TIM 
NITER =NIT+NITER 
I I TER -N  I T 
T (NTA6+1 ) =T (NTAB) 

S(NTAB+1 )=S(NTAB)  + (S(NTAB)-S(NTAB-1 ) ) 

CALL  EINIT(T.TE.NTAB) 

OUTPUT  INPUT  PARAMETERS  AND  INITIAL  DENSITY  AND  DISTANCES 
CALL  NOUTCEFLUX. PSIO, FRAC, TI MMAX . NT AB , N , S ) 

I 

NEED  1/N  IN  LOOP  SO  ME  CHANGE  N TO  1/N  AND  CALCULATE 
DIFFERENCES  OF  DISTANCES  USED  IN  TIME  STEP. 
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STST  =-S C 2 ) 

PO  10  I = 1 . NT AB 

spu  ) = i s c i )-srsi)*o.  5P0 

SFST-Sll  ) 

LN ( I ) -0 . 5D0*DL0G(N( I ) ) 

10  N ( I )=2. 00/(3. D0*KAY*N(I  )) 

LNCNTAB+1 )=LN(NTAB) 

PASS  ADDRESSES  OF  INTERPOLATION  TABLES  AND  OTHER 
CONSTANTS  TO  CURCAL  AN0  TESTP 

CALL  CUR  I NT (TEMPI , TEMP2, TEMP3. GAM, TL . TM, VI TH, CNV, 
•N.LN.SO.OSIC.J.T.NTAB) 

CALL  TEST  PI ( T . T E , J , OS  I G , N , T UP , D E L T , FR AC , NT AB , C I N V ) 

START  TIME  STEPPING  LOOP 
1 CONTINUE 

CALCULATE  CURRENT  ANO  RESISTIVITY  AT  EACH  GRID  POINT 
CALL  CURCAL(OSIG. J.T.N.LN.NTAB) 

CALCULATE  ONE  TIME  STEP  WORTH  OF  HEATING.  UPOATE  TEMPERATURE 
AND  ADJUST  TIME  STEP  ACCORDING  TO  FRAC 

CALL  TESTP(T,TE.J.OSIG,N, TUP. PELT, FRAC. NTAB.CINV) 

WRITE  OUT  SOME  STUFF  TO  MAKE  SURE  THINGS  ARE  WORKING  RIGHT 

CALL  0IAG(S.T,TE, J, OS  I G . N , TUP , DELT . T I M . NT AB , 1 1 TER) 

STEP  TIME 

I I T ER  = I ITER+1 
I F ( I ITER. GT. NITER)  GOTO  -40 
T IM=T IM+DELT 
IFUIM.LT. OUTIME)GOTO  1 
OUT  I ME=0UT IME+DTOUT 

OUTPUT  CURRENT  VALUES  OF  TIM, TEMP  AND  J 

CALL  TOUT  (TIM.T. J.PELT. IITER.NTAB) 

IFUIM.LT.  TIMMAX)GOTO  1 
40  CALL  CTOUT 

WRITE(6.*)IITER.0ELT 

STOP 

END 

SUBROUTINE  E I N I T ( T . T E , N T AB ) 

IMPLICIT  REAL'*®  (A-H.O-Z) 

REAL*®  T(NTAB) .TE(NTAB) 

REAL*®  KAY/1  . 38054D- 16/. EC/4. 80298D- 10/.MP/1  . 67252D-24/, 

.ME/9. 1 09 1 D- 23/ . 

. HBAR/1 . 05450D-27/.ONE3/ZC055555555555555/. 

. SETA. CHI 

T ION=(ME*MP)/(ME+MP) 

T I ON  = (T ION*EC**4)/(2. 00*HBAR**2) 

T I0N=( 2 . D0*T ION)/( 3. D0*KAY) 

DO  10  I = 1 . NT A3 

BE TA - 1 . 5SP5/T  ( I ) 

CHI  =4.  50 5/ ( BETA* DEXP( BETA) *( . 4288D0+. 5DO*DLOG( BETA) 

+ . 4698*BETA**0NE3) ) 

CHI=CHI/( 1 . PO+CHI ) 

10  TEU)=T(I)  + (CHI*U(I)  + TION)) 

RETURN 

END 

SUBROUTINE  I N I T ( T . N.S. DELT, TIM. NIT. NTAB) 

IMPLICIT  REAL*®  (A-H.O-Z) 

REAL*®  T( 1024) .N(  1024) .SC  1024) 
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1001  F ORflAT  ( 1 0 A S ) 

REAOC 10. 1001)NTAB.NIT.DELT.TIM 
CALL  RDRCT .N.S.NTAB) 

RETURN 

END 

SUBROUTINE  RDR ( T , N , S , NT AB ) 
REALMS  T(NTAB) .S(NTAB) .N(NTAB) 
1001  FORMAT ( 10A8) 

READC 10. 1001 )N 
READ  ( 10, 1001 ) S 
RE  AD  ( 10.  100DT 
RETURN 
END 
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CURCAL 


CURCAL 

* 


CSECT 


ROUGHLY  EQUIVALENT  TO  THE  FORTRAN  COPE  BELOW.  EXCEPT 

THE  FUNCTIONS  PASSED  IN  THE  ARGUMENT  LIST  OF  THE 

FORTRAN  ENTRY  POINT  CURINT  ( T L . T M . V T H . CN V ) ARE  IMPLEMENTED 

IN  LINE  IN  THE  ASSEMBLY  LANGUAGE  VERSION  AND  A CALL  TO 

THE  ASSEMBLY  LANGUAGE  VERSION  SHOULD  PASS  THE  ADDRESSES 

OF  SEMI-LOGARITHMIC  TABLES  C T L ( S20 ) . T M( 820 ) . V T H ( 820 ) . CN V ( 820 ) ) 

VIA  THE  ENTRY  POINT  CURINT  RATHER  THAN  FUNCTION  NAMES. 

CURCAL  POES  THE  EQUIVALENT  OF  A FORTRAN  RETURN  1 WHEN  A 
VALUE  OF  T IS  OUTSIDE  THE  TABULATED  RANGE.  THERE  IS  NO 
OBVIOUS  WAY  TO  MARE  THIS  APPARENT  IN  THE  TORTRAN  VERSION. 

THE  ARGUMENTS  PASSED  TO  CURCAL  ARE  IGNORED  AND 
OBTAINED  FROM  LOCAL  STORAGE  WHERE  CURINT  PUT  THEM. 


NOTE  THAT  THIS  MEANS  CURINT  MUST  BE  CALLED  BEFORE  THE 
FIRST  TIME  CURCAL  IS  CALLED  OR  A REAL  MESS  WILL  RESULT. 


SUBROUTINE  CUR  I NT (TEMPI . TEMP2 . T EMP3, GAM. TL . TM, VTH . CNV . 
•N. LN.SD. OSIG. J.T. NTAB) 


DECLARE  VARIABLES 


IMPLICIT  REALMS  (A-H.O-Z) 

REAL'S  N(NTAB) . LN l NTAB) .SD (NTAB) .T (NTAB) ,J (NTAB) .OSIG (NTAB) 
. TL . TM, VTH , CNV 

REAL'S  TEMPI , TEMP2. T EMP3. CONAN . ESU, C , CONAN  1 . B, CHT . 

. VC. VI TH, TSI • JA . NCON. NCON I , ME . MI , PI , JCON . JC 1 
DATA  C/2. 997925010/.  ESU/ -I.  802 980-  10/.  ME/9.  1090- 25/ . 

. MI/1 . 67252D-2-)/.  PI/Z41  32  4 3F  6ASSS5A  30/.  ERR/  1.0-6/ 


INITIALIZE  CONSTANTS  FOR  CURCAL 


INTEGER'-)  COUNT / 30/ 

3=1 . D2 

CON AN  = 6. 0-2*0SQRT (ME /MI ) 'B/ ( A . DO'PI 'ESU  ) 
T CON  = ( (GAM- 1 . DO) /GAM) 

CONAN  1 =-TC0N'TEMP3'C0NAN'ESU/C 
TCON=TCON 'TEMPI 
C E =- C /ESU 
RETURN 

ENTRY  CURCAL (OSIG. J. T.N. LN.NTAB.') 


CALCULATE  CURRENT  AND  RESISTIVITY  (OSIG)  I OR  FIRST  POINT 


0SIG(1)=TL(T(1))+TM(T(1))'LN(1) 
CHT  = CNV  ( T ( 1 ) ) 

V1TH  = VTH(T(D) 

VD=J(  1 )'N(  1 )H'HT'CE 
IF  (VD.LT.VITH)GOTO  10 


THE  NEXT  STATEMENT  CALCULATES  THE  ANOMALOUS  PART  OF  THE 
RESISTIVITY  IF  THE  DRIFT  VELOCITY  IS  GRFAIER  THAN  THE 
CRITICAL  VELOCITY  FOR  THE  ONSET  OF  TURBULENCE 


OS  I G ( 1 ) =0S  I G ( 1 ) 'CONAN'N  ( D'CHTM  1 . DO-VITH/VD) 


INITIALIZE  TSI  TO  ZERO 


10  TSI =0. DO 

DO  20  1=2. NTAB 

OSI G(I ) =TL (T ( I ) ) + TM(T( I ) ) 'LN( I ) 
TSI=TSI  + (OSlC<(  l - 1 ) *QSl G ( I ) I'SIUI  ) 
JC0N=(TEMP2+TEMP3'TSI ) 
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* F 35C 1 = 1. DO/ JCON 

* F 35C2=F  35 ( F 35C 1 ) 

* CHT=CNV(T(  1 ) ) 

* VITH=VTHCT ( I )) 

* J(  I ) = TEMP  1 *F  35C2 

* NCONO=N( I )*CHT 

* CJA=NCONO*SD( I )*C0NAN 

* NC0N=NC0N0*CE 

* V D = JT  *N  CON 

* IFCVD.LT. VITH)COTO  20 
« 

* THIS  SECTION  CALCULATES  ANOMALOUS  PART  OF  RESISTIVITY  USING 

* NEUTON'S  METHOD  FOR  INTERIOR  GRID  POINTS  - SKIP  IF 

* DRIFT  VELOCITY  IS  LESS  THAN  CRITICAL  VELOCITY 

* 

* JA=(12. DO/13. DO)*VITH/NCON 

* JC0N=JC0N+CJA*TEMP3 

* CJA=CJA*JA 

* NCOS 1=NC0N* CONAN  1 

* J(I)=JA*(1.D0+(J(I)-JA)/(NC0N1*SD(I)*F35C1*J(I )+JA ) ) 

* DO  1 5 K = 1 . COUNT 

* C JAT  =C JA/J ( I ) 

* TC1=TC0N-CJAT 

* JC 1 =JCON-C JAT 

* JT=J(  I ) *(  (TC  1+TEMP1*JC  1 )/( JC  I )*JC1*F35(JC1)+TC1)  ) 

* IFCDABSC (JT-JC I ) )/JT ) . LE . ERR ) GOTO  16 

* 15  J C I ) = JT 

* 16  TSI  G=NCONO*CONAN*(  1 . DO-JA/JC I ) ) 

* TSI=TSI+TSIG*SD(I) 

* OSIGC I )=OSIGC I )+TSIG 

* 20  CONTINUE 

* RETURN 

* END 


USING 

*,  15 

B 

CFIRST 

BRANCH  AROUND  NAME,  OTHER  ENTRY  ETC 

DC 

X 1 06  1 

DC 

CL7'CURCAL  1 

ENTRY 

CURINT 

USING 

*.15 

CURINT 

B 

IFIRST 

BRANCH  AROUND  NAME,  SAVE  AREA  ETC. 

DC 

X ' 06  1 

DC 

CL7'CURINT  ' 

AREA 

DS 

18F 

REG  1 

DC 

AL4CARGA) 

R 1 ( ADDR  ARG  LIST) 

REG2 

DC 

F 'O' 

R2  BASE  T 

REG3 

DC 

F 'O' 

R 3 (BASE  OSIG  - 8 - BASE  T) 

REG-4 

DC 

F 'O' 

R-4  (BASE  J - BASE  T) 

REG5 

DC 

F 'O’ 

R 5 (BASE  N - BASE  T) 

REG6 

DC 

F '0' 

R6  (BASE  LN  - BASE  T) 

REG7 

DC 

F '0' 

R 7 (BASE  SD  - BASE  T) 

EIGHT 

DC 

F '8' 

R8  (INCREMENT  - 8) 

REG9 

DC 

F 'O' 

R 9 (BASE  T + 8*(NTAB-1)  COMPARAND) 

TLA 

DC 

F 'O' 

RIO  (EASE  TL  TABLE  CHANGES  IN  LOOP) 

TMA 

DC 

F ' 0 ' 

R 1 1 (BASE  TM  TABLE  CHANGES  IN  LOOP) 

V T HA 

DC 

F 'O' 

BASE  VTH  TABLE 

CNVA 

DC 

F ' 0 ' 

BASE  CNV  TABLE 

COUNT 

DC 

F '30' 

MAX  » OF  NEUTON'S  METHOD  ITERATIONS 

ARGA 

DC 

X ' 80 ' 

ARGUMENT  LIST  (ONE  LONG) 

DC 

AL3CF35A) 

ADDR  ARGUMENT 

T BSD 

DC 

X '00000330' 

TDISP 

DC 

X '0000-4-410' 

CNOP 

0,8 

FORCE  DOUBLE  UORD  ALIGNMENT 

UM1 

DC 

D ' 0.  ' 

UP  1 

DC 

D '0.  ' 

UM3 

DC 

D ' 0.  ' 

UP  3 

DC 

D'O.  ' 

FLOAT 

DC 

X ' -4000000000000000' 

CONAN 

DC 

D'O.' 
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i 

1 

K 1 


,i 


CONAN  1 

TEMPI 

TEMP2 

TEMP3 

GAM 

N CON 

NCCNO 

T CON 

JCON 

CJA 

TCI 

JA 

TSI 

ERR 

C 

ESU 

ME 

M! 

3 

PI 

CE 

F35C1 

F35C2 

F35A 

IF1RST 


DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

CC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

PC 

STM 

LR 

LA 

DROP 

USING 

ST 

ST 


'O. 
-0. 
'0. 
'0. 
'0. 
'0. 
'0. 
'0. 
'0. 
'0. 
'0. 
'0. 
'0. 
1 1 . 
'2 


E - 5 ’ 

9 9 7 9 2 5 E 1 0 


D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
0 
D 
D 
D 
D 

D 1 4 . 8029SE - 1 0 
D ’ 9 . 1 09 1 E - 28 ‘ 

D 1 1 . 67252E-24 1 
D 1 1 . E 2 ‘ 

X '413243F6AS885A30 
D 1 0.  1 
D '0.  ' 

D '0.  ' 

D'O.  ' 

14.12.12(13) 

2.13 
1 3. AREA 
15 

AREA.  13 
2. 4( 13) 

13,8(2) 


ERROR  TOLERANCE  FOR  NEWTON'S  METHOD 


SAVE  CALLING  ROUTINE'S  GPR ' 
R 2 <=  ADPR  0 L 0 SAVE  AREA 
R13  <=  ADDR  NEW  SAVE  AREA 
R 1 5 NO  LONGER  BASE  REG 
R 1 3 NEW  CASE  REG 
LINK  SAVE  AREAS 


LM 
10 
ST 
L DR 
ST 
LD 
ST 
STD 
ST 
LO 
LM 
LD 
L 

STD 

SLA 

STD 

S 

SD 

SR 

DDR 

SR 


2, 9. 0(1) 

R2-R9  <=  ADDR'S  1ST  8 ARG'S 

0,0(5) 

FO  <=  GAM 

6.  TLA 

TLA  <=  BASE  TL  TABLE 

2,0 

F 2 <=  GAM 

7 , TMA 

TMA  <=  BASE  TM  TABLE 

4.0(4) 

F 4 < = TEMP3 

8.VTHA 

VTHA  <=  BASE  VTH  TABLE 

4.TEMP3 

TEMP3  (LOCAL)  <=  TEMP 3 

9.CNVA 

CNVA  <=  BASE  CNV  TABLE 

6,0(3) 

F 6 <=  TEMP2 

4.10.32(1) 

R4-R10  ADDR'S  REST  OF  ARG'S 

4.0(2) 

F 4 <=  TEMPI 

10.0(10) 

RIO  <=  NT  A3 

6, TEMP 2 

TEMP2  (LOCAL)  <=  TEMP2 

10.3 

RIO  <=  N T A B * 8 

4. TEMPI 

TEMPI  (LOCAL)  <=  TEMPI 

10. EIGHT 

RIO  <=  8MNTAB-1) 

2 . =D  ' 1.  ' 

F 2 <=  GAM- 1.0  0 

4,9 

R 4 <=  BASE  N - BASE  T 

2.0 

F2  <=  (GAM- 1 . 0 0 ) / G A M 

5.9 

R 5 <=  BASE  LN  - BASE  T 

STD 

2. GAM 

GAM  < 

= (GAM-1. DO)/GAM 

SR 

6.9 

R6  < = 

BASE  SD  - BASE  T 

LD 

0 . ME 

F 0 < = 

ME 

L 

1 , RE  G 1 

R 1 < = 

ADDR  ARG  LIST 

DD 

0.  MI 

FO  < = 

ME/MI 

L 

1 5 , =V ( DSQRT  ) 

R 1 5 < 

= ENTRY  ADDR  PSQRT 

STD 

0.F35A 

F 35A 

<=  ME /MI 

BALR 

14.15 

FO  < = 

DSQRT (ME/MI ) 

SR 

8.9 

RS  < = 

BASE  J - BASE  T 

M3 

0.  B 

FO  < = 

DSQRT (ME/MI > *B 

SR 

7.9 

R 7 < = 

BASE  OSIG  - BASE  T 

MD 

0. =D '6. E-2  ' 

FO  < = 

6.  D-2 '•DSQRT  (ME'MI  )*B 

AR 

10.9 

RIO  < 

= BASE  T + 5MNTAB-1) 

LO 

2 . =0 ' 4 . 1 

F 2 < = 

4.  DO 

MD 

2. PI 

F 2 < = 

4. DO*PI 

S 

7. El GHT 

R 7 < = 

BASE  OSIG  - 8 - BASE 

MD 

2.  ESU 

F 2 < = 

4 . 00*  P I *ESU 
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CFIRST 


9. REG2 
0.2 

7.  REG3 
0.  CONAN 

8,  REG-1 
. GAM 
, TEMP3 
.REGS 

4 

. REG6 
2.  C 

6 . REG  7 
2.2 
0.2 

10.  REG9 
A. TEMPI 
2.  ESU 
A, T CON 
10.4(13) 

0.  ESU 
2.CE 

1-1.10.12(10) 
0.  CONAN  1 
13.-K  13) 
15.15 

12(13). X'FF' 
14 
13 

USING  CURCAL, 1 5 
STM  14.12,12(13) 
LR  2.13 

LA  13, AREA 

DROP  15 
USING  AREA,  13 


ST 

DOR 

ST 

STD 

ST 

LO 

HO 

ST 

mdr 

ST 

LO 

ST 

L C DR 

DDR 

ST 

no 

DO 

STD 

L 

no 

STD 

Ln 

STD 

L 

SR 
MV  I 
BR 

DROP 


ST 

ST 


2.4(13) 

13,8(2) 


REG2  <=  BASE  T 

F 2 <=  6. D-2*DSQRT (ME/MI )*B/(4. D0*PI*ESU) 
REG3  <=  BASE  OSIG  - 8 - BASE  T 
CONAN  <=  6.D-2*DSQRT(ME/MI)*B/(4.D0*PI*ESU) 
RE G 4 <=  BASE  J - BASE  T 
F 4 <=  ((GAM-1 . D 0 ) /GAM) 

FO  <=  TEMP3*C0NAN 

REG5  <=  BASE  N - BASE  T 

FO  <=  ( (GAM- 1 . D0)/GAM)*TEMP3*C0NAN 

REG6  <=  BASE  LN  - BASE  T 

F 2 <=  C 

REG7  <=  BASE  SD  - BASE  T 
F 2 <=  -C 

FO  <=  -((GAM-1.D0)/GAM)*TEMP3*C0NAN/C 
REG9  <=  BASE  T + 8MNTAB-1)  COMPARAND 
F 4 <=  TEMP1M (GAM-1 )/GAM)  = TCON 
F2  <=  - C/E  SU 

TCON  <=  TEMP1*((GAM-1)/GAM) 

RIO  <=  ADDR  OLD  SAVE  AREA 

FO  <=  -(  (GAM-  1 . D0)/GAM)1-TEMP3*C0NAN'*'ESU/C 

CE  <=  - C/E  SU 

GPR'S  RESTORED 

CONAN  1 <=  ( (GAM- 1 . DO)/GAM) *TEMP3*C0NAN 
R 1 3 <=  ADDR  OLD  SAVE  AREA 
R 1 5 <=  0 (RETURN  CODE) 

INDICATE  CONTROL  RETURNED 
RETURN 


SAVE  CALLING  ROUTINE'S  GPR 
R2  <=  ADDR  OLD  SAVE  AREA 
R 1 3 <=  ADDR  NEU  SAVE  AREA 
R 1 5 NO  LONGER  BASE  REG 
R 1 3 NEW  BASE  REG 
LINK  SAVE  AREAS 


LM 

1 , 1 1 , REG  1 

SET  UP  GPR'S 

LH 

12,0(2) 

R 1 2 <=  HIGH  ORDER  2 BYTES  OF  T ( 1 ) 

MVC 

FLOAT+ 1 (6) .2(2)  FLOAT  <=  FRACTIONAL  DISPLACEMENT 

* 

S 

12.TDISP 

REDUCE  R 1 2 BY  TD1SP.  NOW  » DOUBLE  WORDS 
FROM  BASE  OF  INTERPOLATION  TABLES 

LD 

4, FLOAT 

F 4 <=  FRACTION  0 LE  FRAC  LT  1 

* 

BM 

BADT 

IF  RESULT  NEGATIVE  - OUT  OF  RANGE 

GOTO  BADT 

C 

12.TBND 

IF  R 1 2 GREATER  THAN  TBND 

BH 

SD 

BADT 

4 . =D ' . 5 ' 

GOTO  BADT 

* 

SLA 

12,3 

R 1 2 < = R2*  8 NOW  BYTE  DISPLACEMENT 

FROM  BASE  OF  INTERPOLATION  TABLES 

% 

NOLI 

COMPUTE  WEIGHTS 

FOR  CUBIC  I NT  ERPOALT I ON  OF 

% 

* 

FUNCTIONS  OF  T 

LOR 

2.4 

F 2 <=  X 

MDR 

4.4 

F 4 <=  X'»'»2  = X2 

HOR 

4.4 

F 4 <=  X2/2 

SD 

4,=D'1. 125' 

F 4 <=  X2/2  - 9/8 

LDR 

6.4 

F 6 <=  X2/2  - 9/8 

HOR 

4.4 

F 4 <=  X2/4  - 9/16 

MDR 

6.2 

F 6 <=  X 3/2  - 9X/8 

LCOR 

0.4 

FO  <=  -X2/4  + 9/16 

ADR 

0.6 

FO  <=  X 3/2  - X2/4  - 9X/8  + 9/16 

* 

STD 

0.  WM1 

WM1  <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 
ING  TO  CLOSEST  SMALLER  VALUE  OF  T. 

LCDR 

0,4 

FO  <=  -X2/4  + 9/16 

SDR 

0.6 

FO  <=  -X 3/2  - X2/4  + 9X/8  + 9/16 

It 

STD 

0.WP1 

UP  1 <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 
ING  TO  CLOSEST  LARGER  VALUE  OF  T. 

ADR 

6,2 

F6  <=  X 3/2  - X/8 
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MIL  . ™ 


■ — I ' 


AD 

•R , =D  * . 5 * 

F 4 <=  X2/4  - 1/16 

- 

MD 

6. =X  * 4055555555555555 ' F6  <=  X3/6  - X/24 

L DR 

0.4 

FO  <=  X2/4  - 1/16 

SDR 

0.6 

FO  <=  -X3/6  + X2/4  + X/24  - 1/16 

ADR 

6.4 

F 6 <=  X3/6  + X2/4  - X/24  - 1/16 

« 

STD 

0.UM3 

UM3  <=  UEIGHT  FOR  SMALLEST  VALUE  OF 

STD 

6.UP3 

UP 3 <=  UEIGHT  FOR  LARGEST  VALUE  OF 

* 

NOU 

CALCULATE  INTERPOLATED 

VALUES  OF  TL  AND  TM 

* 

(HAVE 

UEIGHTS  FOR  TABLES 

ENTRIES  U 4 IN  FPR'S  0 £ 6) 

LDR 

4,0 

F 4 <=  UEIGHT  1 

L DR 

2.6 

F 2 <=  UEIGHT  4 

MD 

0.0(10,12) 

FO  <=  UEIGHT  1 * TL  1 

MD 

2,24(10,12) 

F 2 <=  UEIGHT  4 * TL  4 

MD 

4,0(11. 12) 

F 4 <=  UEIGHT  1 * TM  1 

MD 

6,24(11,12) 

F 6 <=  UEIGHT  4 * TM  4 

ADR 

0,2 

FO  <=  U1+TL1  + U4ML4 

ADR 

4,6 

F 4 <=  U1MM1  + U4MM4 

LD 

2 , UM1 

F 2 <=  UEIGHT  2 

LDR 

6,2 

F 6 <=  UEIGHT  2 

MD 

2.8(10. 12) 

F 2 <=  U2ML2 

MD 

6.8(11,12) 

F6  <=  U 2 1 T M 2 

ADR 

0.2 

FO  <=  U1ML1  + U 4 * T L 4 + U2*TL2 

ADR 

4,6 

F 4 < = U 1 * T M 1 + U4*TM4  + U2*TM2 

LD 

2.UP1 

F 2 <=  UEIGHT  3 

LDR 

6.2 

F 6 <=  UEIGHT  3 

MD 

2.  16(10, 12) 

F 2 <=  U3UL3 

MD 

6,16(11,12) 

F 6 <=  U3*TM3 

ADR 

0,2 

FO  <=  INTERPOLATED  VALUE  OF  TL 

ADR 

4.6 

F 4 <=  INTERPOLATED  VALUE  OF  TM 

MD 

4, 0(6, 2) 

F 4 < = TMkLN ( 1 ) 

ADR 

4,0 

F 4 <=  TL  + TM*LN( 1 ) 

L 

10, CNVA 

RIO  <=  BASE  ADDR  CHINV  TABLE 

STD 

4, 8(3, 2) 

OS  I 6 ( 1 ) <=  TL  + TM'LN ( 1 ) 

L 

1 1 . VTHA 

R 1 1 <=  BASE  VTH  TABLE 

LD 

0 , UM3 

FO  <=  UEIGHT  FOR  SMALLEST  VALUE  OF 

* 

LD 

6.UP3 

F 6 <=  UEIGHT  FOR  LARGEST  VALUE  OF  T 

* 

NOW 

CALCULATE 

INTERPOLATED 

VALUES  OF  CH  AND  VT 

* 

* 

(HAVE 

UEIGHTS 

; FOR  TABLES 

ENTRIES  1 C 4 IN  FPR'S  0 £ 6! 

LDR 

4.0 

F 4 <=  UEIGHT  1 

LDR 

2,6 

F 2 <=  UEIGHT  4 

MD 

0.0(10.12) 

FO  <=  UEIGHT  1 * CH  1 

MD 

2.24(10.12) 

F 2 <=  UEIGHT  4 * CH  4 

MD 

4,0(11.12) 

F 4 <=  UEIGHT  1 * VT  1 

MD 

6.24(11,12) 

F 6 <=  UEIGHT  4 * VT  4 

ADR 

0.2 

FO  <=  UPCH1  + U4 *-C H 4 

ADR 

4,6 

F 4 <=  U T*  V T 1 + U4*VT4 

LD 

2 , UM1 

F 2 <=  UEIGHT  2 

LOR 

6.2 

F 6 <--  UEIGHT  2 

MD 

2.8(10. 12) 

F 2 <=  U 2 ■*  C H 2 

MD 

6.8(11.12) 

F 6 <=  U2H‘T2 

ADR 

0,2 

FO  <=  U 1 * C H 1 + U4*CH4  + U2'kCH2 

ADR 

4,6 

F 4 <=  U 1 1 VT 1 + U4*VT4  + U2*VT2 

LD 

2 , UP  1 

F 2 <=  UEIGHT  3 

LDR 

6.2 

F 6 <=  UEIGHT  3 

MD 

2.16(10,12) 

F 2 <=  U 3 1 C H 3 

MD 

6.16(11.12) 

F 6 <=  U3*VT  3 

ADR 

0.2 

FO  <=  INTERPOLATED  VALUE  OF  CH 

ADR 

4.6 

F 4 <=  INTERPOLATED  VALUE  OF  VT 

LDR 

2.0 

F 2 <=  CHT 

SDR 

6.6 

F 6 <=  0. DO 

MD 

2,  CE 

F 2 <=  C H T "*  C E 

L 

10. TLA 

RIO  <=  BASE  TL  TABLE 

MD 

2. 0(5, 2) 

F 2 < - N(  1 )^CHT-*CE 

• 

L 

1 1 , TMA 

R 1 1 <=  BASE  TM  TABLE 

STD 

6,  TSI 

TSI  <=  0. DO 
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MO 

2, 0(4, 2) 

F 2 < = ..  J'(  1PN(  1 PCHT*CE  = VD 

COR 

2.1 

IF(VO.LT.VITH) 

DL 

ARNO 

GOTO  ARNO 

LO 

6. CONAN 

F 6 <=  CONAN 

MPR 

6.0 

F 6 <=  CONAN*CHT 

MO 

6.015.2) 

F 6 <=  CONAN*N(  1PCHT  . 

ID 

0.  =0  1 1 . 1 

F 0 < = 1 . 00 

DOR 

•1,2 

r4  <=  VITH/VP 

SPR 

0.  -1 

FO  <=  1 . DO-V I TH/VP 

MPR 

6.0 

F 6 <=  CONAN*N( 1 PCHT» ( 1 . DO-VI TH/VD) 

AO 

6 , S( 3. 2 ) 

F 6 <=  OS  I G ( 1 ) + CON AN  ' N ( 1 ) * C H T * ( 1 . P0-V1TH/VP) 

STD 

6. 8( 3. 2) 

OS I C ( 1 X =0S I G ( 1 H CONAN*N( 1 ) *CHT * ( 1 . DO-V I T H/VD ) 

ARNO 

AR 

2.8 

R 2 <=  A OPR  T ( 2 ) 

LOOP 

LH 

12.0(2) 

R 1 2 <-  HIGH  ORDER  2 BYTES  OF  TCI) 

nvc 

FL0APK6) 

.2(2)  FLOAT  <=  FRACTIONAL  0 I SPLACEMENT 

t. 

S 

12.TPISP 

REDUCE  R 1 2 BY  TO  ISP.  NOW  # DOUBLE  WORDS 

FROM  BASE  OF  INTERPOLATION  TABLES 

LO 

4. FLOAT 

F-l  <=  FRACTION  0 LE  FRAC  LT  1 

t 

BM 

BADT 

IF  RESULT  NEGATIVE  - OUT  OF  RANGE 

GOTO  BADT 

C 

12.TBN0 

IF  R 1 2 GREATER  THAN  TBND 

BH 

BADT 

GOTO  PAD T 

SO 

-4 . =0  ’ .5’ 

F -1  <=  FRAC  -.5  LE  FRAC  LT  .5 

i 

SLA 

12.3 

R 1 2 <=  R2*8  NOW  BYTE  DISPLACEMENT 

FROM  BASE  OF  INTERPOLATION  TABLES 

i 

NOW 

COMPUTE  WEIGHTS  TOR  CUBIC  I N T ERPOAL T I ON  OF 

FUNCTIONS  OF  T 


LOR 

2.  -1 

F 2 

< = 

X 

MPR 

4.  A 

F 4 

< = 

X**2  = 

X2 

H PR 

A.  A 

F 4 

< = 

X 2/2 

SO 

4. =0  ' 1 . 

125' 

F 4 

< = 

X2/2  - 

9/8 

LOR 

6.  -1 

F (> 

< = 

X2/2  - 

9/8 

HPR 

A.  A 

F 4 

< = 

X2/4  - 

9/16 

MPR 

6.2 

F 6 

< = 

X 3/2  - 

9X/8 

L C PR 

0.4 

FO 

< = 

-X2/4  + 

9/16 

APR 

0.6 

FO 

< = 

X 3/  2 - 

X 

2/4  - 9X/8  + 9/16 

STD 

(1.WM1 

WM 1 

< = 

WEIGHT 

FOR  TABLE  ENTRY  CORRESPOND 

ING 

TO 

CLOSEST 

SMALLER  VALUE  OT  T. 

L COR 

0.4 

FO 

< = 

-X2/4  + 

9/16 

SDR 

0.6 

F 0 

< = 

- X 3 / 2 - 

X2/4  + 9X/S  + 9/16 

STO 

0 . WP  1 

WP  1 

< = 

■ WEIGHT 

FOR  TABLE  ENTRY  CORRESPOND 

ING 

TO 

CLOSEST 

LARGER  VALUE  OF  T. 

ADR 

6.2 

F 6 

< = 

X 3/2  - 

X/8 

AO 

4, =0  ' . 5 

1 

F 4 

< = 

X2/4  - 

1/16 

MO 

6. =X'4 055555555555555'  F6 

< 

= X 3/6  - X/24 

LOR 

0.4 

FO 

< = 

X 2/4  - 

1/16 

SDR 

0.6 

F 0 

< = 

-X  3/6  + 

X2/4  + X/24  - 1/16 

APR 

6.4 

F 6 

< = 

X 3/6  + 

X 2/4  - X/24  - 1/16 

STD 

0.WM3 

WM3 

<* 

WE  I GHT 

FOR  SMALLEST  VALUE  OF  T 

STO 

6.WP3 

WP  3 

< = 

WEIGHT 

FOR  LARGEST  VALUE  OF  T 

NOW  CALCULATE 

INTERPOLATED  VALUES 

1 OF  TL 

AND  TM 

(HAVE  WEIGHTS 

1 FOR  TABLES 

ENTRIES 

1 £ 4 IN 

FPR'S  0 £ 6) 

l PR 

4.0 

r 4 

< = 

WEIGHT 

1 

LOR 

2.6 

F 2 

< = 

WE ' GHT 

4 

MD 

0,0(10. 12) 

F 0 

< = 

WEIGHT 

1 

* TL  1 

MO 

2.24(10. 12) 

F 2 

< = 

WEIGHT 

4 

* TL  4 

MO 

4.0(11. 

12) 

F 4 

< = 

WE  I GHT 

1 

* TM  1 

MO 

6 . 2 4 ( 1 1 

.12) 

F 6 

< = 

WE  I GHT 

4 

* TM  4 

APR 

0.2 

FO 

< = 

W 1 ' T L 1 

+ 

W4ML4 

APR 

4.6 

F 4 

< = 

111*  T M 1 

+ 

W4MM4 

1 0 

2.WM1 

F 2 

< = 

WE  I GHT 

2 

l PR 

6 . 7 

F 6 

< = 

WE  I GHT 

2 

M ^ 

2.8(10. 

12) 

F 2 

< = 

W 2 * T L 2 

MB 

b . 8 ( 1 1 . 

12) 

F 6 

< = 

W2MM2 

Aft* 

0. 2 

F 0 

< = 

WP  TL  1 

♦ 

W 4 * T L 4 + W2ML2 
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ADR 

A.  6 

FA  <=  U1UM1  + MAMMA  + H2*TM2 

LD 

2 , HP  1 

F2  <=  HEIGHT  3 

L DR 

6.2 

F 6 <=  HEIGHT  3 

MD 

2.16(10, 

12) 

F 2 <=  M 3 * T L 3 

MD 

6.16(11. 

12) 

F6  <=  H3MM3 

ADR 

0.2 

FO  <=  INTERPOLATED  VALUE  OF  TL 

ADR 

A . 6 

FA  <=  INTERPOLATED  VALUE  OF  TM 

MD 

A. 0(6, 2) 

FA  <=  TMHNl  I ) 

ADR 

0.  A 

FO  <=  TL  + TM  'LN  ( I ) 

L 

10, CNVA 

RIO  <=  BASE  ADDR  CH1NV  TABLE 

STD 

0.8(3. 2) 

OSIG(I)  <=  TL  + TM'LN(I) 

L 

1 1 , V T H A 

R 1 1 < = BASE  VTH  TABLE 

AO 

0.0(3. 2) 

FO  <=  0SIG(I)+0SIG(1-1) 

MD 

0. 0( 7. 2) 

FO  <=  (0SIG(I)+0SIG(I-1))*SD(I) 

AD 

0.  TSI 

FO  <=  TSI  + (0SIG(1)+0SIG(I-1))*SD(I) 

STD 

O.TSI 

TSI  TSI  ♦ (OSIGU )+0SIG(I-1))*SDU ) 

MD 

0, TEMP 3 

FO  <=  TSI *TEMF3 

AD 

0. TEMP2 

FO  <=  TEMP2  + T EMP3* I S I 

STD 

0, JCON 

JCON  <=  TEMP2  + T EMP3MS1 

LD 

6. =D  ' 1 . ’ 

F 6 < = 1 . DO 

DDR 

6.0 

F 6 <=  1 . D0/(TEMP2  + TEMP3*TSI  ) 

L 

1 5 . =V  ( F 35) 

R 1 5 <=  ENTRY  ADDR  F35 

STD 

6 , F 35C  1 

F35C1  <=  1 . D0/(TEMP2  + TEMP3*TSI ) 

STD 

6.F35A 

F35  ARGUMENT  <=  1 . DO/ ( T EMF2+ T EMP 3*T S I ) 

BALR 

1 A 15 

F 0 <=  F 35  ( 1 . DO/  ( T EMP2  + T EMP3MS I ) ) 

STD 

0.K35C2 

F35C2  <=  F35(  1 . D0/(  UMP2+TENP3' ISI  ) ) 

LD 

0.1JM3 

FO  <=  HEIGHT  FOR  SMALLEST  VALUE  OF  T 

LD 

6.1JP3 

F 6 <=  HEIGHT  FOR  LARGEST  VALUE  OF  T 

* NOIJ  CALCULATl  INTERPOLATED  VALUES  OF  CH  AND  VT 

* (HAVE  HEIGHTS  FOR  TABLES  ENTRIES  1 E A I N FPR'S  0 £ 6) 

* 


L DR 

A , 0 

FA 

< = 

HEIGHT  1 

L DR 

2.6 

F 2 

= 

HEIGHT  A 

MD 

0.0(10.12) 

FO 

< = 

HEIGHT  1 * CH  1 

MD 

2.2A(  10. 12) 

F 2 

< = 

HEIGHT  A * CH  A 

MD 

A . 0 ( 1 1 . 1 2 ) 

FA 

< = 

HEIGHT  1 * VT  1 

MD 

6.2-1(11.12) 

F 6 

< = 

HEIGHT  A * VT  A 

APR 

0.2 

FO 

< - 

HI ‘CHI  + MA*CHA 

ADR 

A. 6 

r A 

\ - 

MI'VT  1 + HA*V T A 

LD 

2.HM1 

F 2 

< = 

HEIGHT  2 

LDR 

6.2 

F 6 

< = 

HEIGHT  2 

MD 

2.8(10.12) 

F 2 

< = 

H 2 * C H 2 

MD 

6.8(11,12) 

F 6 

< = 

M 2 * V T 2 

ADR 

0.2 

F 0 

< = 

Hl'CHI  + H A * C H A + M2*CH2 

ADR 

A.  6 

FA 

< = 

H 1 * V T 1 + H A 4 V I A + M2*VT2 

LD 

2.HP1 

F2 

< = 

HEIGHT  3 

LDR 

6.2 

F 6 

< = 

HEIGHT  3 

MD 

2.  16(10. 12) 

F 2 

< = 

U3'CH3 

MD 

6,16(11.12) 

F 6 

< = 

M 3 ' V T 3 

ADR 

0.2 

FO 

< = 

INTERPOLATED  VALUE  OF 

CH 

ADR 

A.  6 

FA 

< = 

INTERPOLATED  VALUE  OT 

VT 

,MD 

0.0(5, 2) 

FO 

< = 

Nil  ) H’HT 

LDR 

6.0 

F 6 

< = 

N(  I ) U'HT  = NCONO 

STD 

O.NCONO 

NCONO 

< = N ( I ) * C H T 

MD 

6. 0(7. 2) 

F6 

< = 

NCONO ‘SO ( I ) 

MD 

0.  CE 

FO 

< = 

N ( I ) ‘CUT  *CE 

MD 

6. CONAN 

F 6 

< = 

CONAN  'NCONO  'SD ( I ) 

STD 

STD 

LD 

MO 

L 

STD 

MDR 

L 

CPR 

BL 


Ll.NCON 
6.CJA 
2. TEMPI 
2.F35C2 
11  . T MA 
2, OH. 2) 
2.0 

10. TLA 

2H 

ARND1 


NOON  <=  Nil)  *0111  *CE 
C.'A  <.=  CONAN  'NCONO* SD(  I ) 
F 2 <=  TEMPI 
12  <=  TEMPI 'f  35C2  = J 
R 1 1 <=  BASE  TM  TABLE 
J ( I ) < = TEMPI »F35C2 
F2  <=  JT  *NCON  = VO 
RIO  <=  BASE  TL  TABLE 
IFCVD.LT .VITH) 

GOTO  ARNO  1 


. 


i 


76 


THIS  PAGE  IS  BEST  QUALITY  FRACTI CABLE 
mM  COPY  FURNISHED  TO  LUC  • 


* 

THE 

FOLLOWING  CALCULATES  THE  CURRENT  AND  RESISTIVITY  IN  THE 

* 

CASE 

THE  DRITT  VELOCITY  EXCEEDS  13  TIMES  THE  ION  THERMAL 

* 

VELOCITY  - - IN 

THIS  CASE  AT  LEAST  PART  OF  THE  SLAB 

i 

•i 

IS  CHARACTERIZED 

BY  ANOMALOUS  RESISTIVITY 

LD 

2 , CJA 

F 2 <=  CJA 

no 

2 . TEMP3 

F 2 <=  TEMP3UJA 

L DR 

6.  -1 

F 6 <=  VITH 

STD 

2 . C JA 

CJA  <=  T E MP3* CJA 

AD 

2,  JCON 

F 2 <=  JCON  + T EMP 3*C JA 

STD 

2, JCON 

JCON  <=  JCON  + TEMP3*CJA 

DDR 

6,0 

F 6 <=  ( 12./13. >*VITH/NCON  = JA 

LD 

2.  CJA 

F 2 <=  CJA 

MD 

0. CONAN  1 

FO  <=  NCON1  CONAN  1 = NC0N1 

mdr 

2.6 

F2  <=  CJA1 JA 

STD 

6,  JA 

JA  <=  ( 12. /13. ) *V 1 TH/NCON 

STD 

2. CJA 

CJA  <=  CJA  * JA 

LD 

2. 0(4.2) 

F 2 <=  J ( I ) 

MD 

0. 0(7. 2) 

FO  < = NCON 1 *SD ( I ) 

MD 

0.F35C1 

FO  < = NC0N1*SD( I )*F35C 1 

MDR 

0.2 

FO  <=  NC0N1*S0(I)*F35C1*J(I) 

ADR 

0,6 

FO  <=  NC0N*SD(1)*F35C1*J(I)+JA 

SDR 

2,6 

F 2 <=  J ( I ) - JA 

DDR 

2.0 

F2  <=  (J(I  )-JA)/(NC0N1*SD(I)*F35C1*J(I)  + JA) 

AD 

2. =D  ' 1 . 1 

F2  <=  1 . DO  + ( J( I ) - JA ) 

* 

/(NC0N1*S0(I)*F35C1*J(I)+JA)  = MULCON 

MDR 

2.6 

F 2 <=  JAniULCON 

STD 

2. 0(4. 2) 

J ( I ) <=  JAHKJLCON 

L 

1 1 , COUNT 

R 1 1 <=  COUNT  ( MAX  It  NEWTON'S  METHOD  STEPS) 

NEWT 

LD 

6,  CJA 

F 6 < = CJA 

DDR 

6.2 

F 6 <=  C JA/ J ( I ) = C JA  T 

L 

T 5.  =V  C F 35) 

R 1 5 <=  ENTRY  ADDRESS  F35 

LD 

0. JCON 

FO  <=  JCON 

SDR 

0.6 

FO  <=  JCON  - CJAT  = JC 1 

STD 

0.F35A 

F35A  <=  JC 1 

MD 

6 . T CON 

F 6 <=  TCON^CJAT  = TCI 

STD 

6 . T C 1 

TCI  <=  T CON1 CJAT 

BALR 

14,15 

FO  <=  F 35 ( JC 1 ) 

LD 

4.  TC  1 

F 4 < = TCI 

LD 

6 . F 35A 

F 6 <=  JC 1 

MDR 

0.6 

FO  <=  F 35 ( JC 1 ) *JC 1 

LD 

2. 0(4, 2) 

F 2 <=  J( I ) 

MDR 

0,2 

FO  <=  J ( I ) * JC 1 *F 35 ( JC 1 ) 

MD 

6. TEMPI 

F6  <=  T EMP 1 1 JC 1 

ADR 

6.4 

F 6 <=  TCI  + TEMP  1 * JC 1 

ADR 

0.4 

FO  <=  TC1+vKl)1JC1'1F35(JC1) 

DDR 

6.0 

F 6 <=  (TC1  + TEMP1'1JC1)/(TC1+J(I)*JC1*F35(JC1)) 

MDR 

2,6 

F 2 <=  J C I JMTC1  + TEMP1  *JC  1 ) / 

♦ 

( TC 1+J( I ) 1 JC 1*F35( JC1 ) ) 

L DR 

4.2 

F 4 < = NE1I  ESTIMATE  OF  J ( I ) 

LPDR 

0.2 

FO  <=  DABS ( NEW  ESTIMATE  OF  J( I ) ) 

SD 

4 , 0 ( 4 . 2 ) 

F 4 <=  NEW  ESTIMATE  - 01 D ESTIMATE 

MD 

0.  ERR 

FO  <=  ERR1DABS(NEW  ESTIMATE) 

LPDR 

4,4 

F 4 <=  DABS (NEW  ESTIMATE  - OLD  ESTIMATE) 

CDR 

0.4 

IF ( D A B S ( N E W ESTIMATE  - OLD  ESTIMATE) 

« 

/ D A 3 S ( N E W ESTIMATE) .LE. ERR) 

STD 

2. 0(4. 2) 

J(I)  <=  J( I )*(TC 1+TEMP1*JC 1 )/ 

% 

(TC1  + J(I)*JC1*F35(JCD) 

BNL 

OUT 

GOTO  OUT 

BCT 

1 1 .NEWT 

OUT 

LD 

4.  JA 

F 4 <=  JA 

DDR 

4.2 

F 4 < = JA/ J ( I ) 

L 

1 1 . TMA 

R 1 1 <=  BASE  ADDR  TM  ARRAY 

LD 

2.  =D ' 1 . ' 

F 2 <=  1.00 

SDR 

2.4 

F 2 <=  1 . DO  - VITH/VD 

MD 

2.NC0N0 

F 2 <=  NCONOM 1 . 00-VITH/(J( I )*NCON) ) 

MD 

2. CONAN 

F 2 <=  CONAN*NCONO*(1.DO-VITH/(J(I)*NCON)) 

t 

= TSIG 

L DR 

4.2 

F 4 <=  TSIG 
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ARNO  1 


BADT 


AD 

2. 8(3. 2) 

F2  <=  OS  I G ( I ) + TSIG 

HD 

•(.0(7,2) 

F 4 < = TSICSDU  ) 

AO 

4 . T S I 

F 4 < = TSI  + TSI G1SD(  I ) 

STO 

2. 8(3. 2) 

OS l G ( I ) <=  OSIGC I ) + TSIG 

STD 

4.  TSI 

TSI  <=  TSI  + TSI G*SO( I ) 

BXLE 

2 . 8. LOOP 

I <=  1+1  AND  GOTO  LOOP  IF  NOT  DONE 

L 

13,4(13) 

R 1 3 <=  ADDS  OLD  SAVE  AREA 

LM 

14,12. 12(13) 

GPR'S  RESTORED 

SR 

15,15 

R 1 5 <=  0 (RETURN  CODE) 

MV  I 

1 2 ( 1 3 ) . X 

1 FF  1 

INDICATE  CONTROL  RETURNED 

BR 

14 

RETURN 

L 

13,4(13) 

R 1 3 <=  APDR  OLD  SAVE  AREA 

LM 

14,12. 12(13) 

GPR 'S  RESTORED 

LA 

15.4 

R 1 5 <=  4 (RETURN  CODE) 

MV  I 

12(13), X 

'FF  1 

INDICATE  CONTROL  RETURNED 

BR 

14 

RETURN 

END 

THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
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F 35 


F 35 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

% 

* 

* 

* 

* 

* 

* 

* 

* 

* 


AREA 

FIRST 


NONNEG 


* 


NOEXTD 

* 


CSECT 

REAL  FUNCTION  F35*8(X) 

F 35  RETURNS  THE  3./5.  POWER  OF  THE  ARGUMENT  IF 

THE  ARGUMENT  IS  POSITIVE  AND  THE  NEGATIVE  OF  THE  3./5. 

POWER  OF  THE  ABSOLUTE  VALUE  OF  THE  ARGUMENT  IF  THE  ARGUMENT 
IS  NEGATIVE.  THE  COMMENTS  REFER  TO  THE  POSITIVE  CASE. 

THE  ALGORITHM  IS: 


CUBE  X AND  CALL  THE  RESULT  Y,  THEN  WRITE  Y AS 
Y = (16**(5*N)>  * ( 1 6**M)  * (2) 

WHERE  M IS  BETWEEN  -4  AND  +4  AND  Z IS  BETWEEN  1/16  AND  1. 
THEN  Z**(1/5)  IS  APPROXIMATED  BY  A MINI-MAX  LINEAR  FIT 
FROM  TWO  TABLES  WITH  A MAXIMUM  RELATIVE  ERROR  IN  THE 
APPROXIMATION  OF  5. IE-4.  THEN  THE  INITIAL  ESTIMATE  OF 

T**1/5  = ( 1 6** CM/5))  * (Z** 1/5) 


IS  REFINED  BY  TWO  APPLICATIONS  OF  NEWTON'S  METHOD. 
X**3/5  IS  THEN  CALCULATED  FROM  (16**N)  * (T**1/5). 


USING 

*,  1 5 

B 

FIRST 

DC 

X '03' 

DC 

CL  3 ’ F35 ' 

DS 

18F 

STM 

14,12,12(13) 

L 

1.0(1) 

LD 

4,0(1) 

LR 

9,  13 

STD 

4,  ARG 

LA 

1 3. AREA 

DROP 

15 

USING 

AREA, 13 

LT  DR 

4,4 

ST 

9,4(13) 

BNM 

NONNEG 

N I 

AR G , X 1 7F 1 

0 

9 . -X  ' 80000000 

ST 

13,8(9) 

SR 

3.3 

IC 

3.  ARG 

MV  I 

ARG, X '40' 

LD 

4,  ARG 

L 

4 , =F 1 64  1 

SR 

3,4 

MDR 

4,4 

M 

2 , =F  ' 3 1 

LA 

6 , TAB  1 - 1 6 

MD 

4,  ARG 

SR 

5,5 

LA 

7 , T AB2- 1 6 

STD 

4,  ARG 

IC 

5,  ARG 

AR 

3,5 

SR 

2,2 

SR 

3,4 

LA 

8.TAB3+16 

BNM 

NOEXTD 

L 

2 , =F  1 - 1 1 

D 

2 , -F 1 5 1 

TELL  ASSEMBLER  NEXT  INST  ADDR  IN  R15 
BRANCH  AROUND  NAME  AND  SAVE  AREA 
LENGTH  OF  NAME 
NAME 

SAVE  AREA 

SAVE  CALLING  ROUTINE'S  GPR'S 
R 1 <=  ADDR  ARGUMENT  (X) 

F 4 <=  X 

R9  <=  ADDR  OLD  SAVE  AREA 
ARG  <=  X 

R13  <=  ADDR  NEW  SAVE  AREA 
R 1 5 NO  LONGER  BASE  REG 
R 1 3 NE10  BASE  REG 
CHECK  SIGN  OF  X 
LINK  SAVE  AREAS 

IF  SIGN  POSITIVE  - NO  FIXES  OR  FLAGS 
TURN  OFF  SIGN  BIT  OF  ARG  <=  IXl 
SIGN  BIT  R9  ON  - FLAG 
LINK  SAVE  AREAS 
R 3 <=  0 

R 3 <=  EXCESS  64  EXPONENET  OF  ARG 

ARG  <=  FRACTION  OF  ARG 

F 4 <=  FRACTION  OF  ARG 

R 4 <=  HEX  40 

R 3 <=  EXPONENT  OF  ARG 

F 4 <=  FRACTION  OF  ARG  **2 

R 3 <=  EXPONENT  OF  ARG**3 

R6  <=  ADDR  TABLE  1 - 16 

F 4 <=  FRACTION  OF  ARG  **3 

R 5 <=  0 

R 7 <=  ADDR  TABLE  2-16 

ARG  <=  FRACTION  ARG  **3 

R 5 <=  EXCESS  64  EXPONENT  OF 

FRACTION  OF  ARG  **3 

R 3 <=  EXCESS  64  EXPONENT  OF  |X|**3 

R 2 <=  0 

R 3 <=  EXPONENT  OF  |X|**3 
R 8 <=  ADDR  TABLE  3+16 
IF  R3  > 0 NO  SIGN  EXTEND 
SIGN  EXTEND  FOR  DIVIDE 
R 2 <=  EXPONENT  OF  T 
R 3 <=  N (SEE  COMMENTS) 


■■■■  WM 
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A 

3. =F 1 65  1 

R 3 <=  EXCFSS  64  EXPONENT  OF  16**N 

AR 

4,2 

R 4 <=  EXCESS  64  EXPONENT  OF  T 

ST  C 

A.  ARG 

ARG  <=  T 

LD 

•1.  ARG 

F 4 <=  T 

SLL 

2.2 

R2  <=  DISPLACEMENT  FOR  TABLE  3 

SDR 

0.  0 

FO  <=  0. DO 

L 

5.  ARG 

R5  <=  1ST  4 BYTES  OF  T 

IC 

4. ARG+1 

LOU  ORDER  BYTE  R4  <=  FIRST  BYTE  OF 

* 

FRACTION  OF  T 

su 

5.8 

HIGH  ORDER  3 BYTES  OF  R5  <=  BYTES 

* 

1-3  OF  FRACTION  OF  T 

N 

4.=x'000000fc 

' R 4 <=  DISPLACE  FOR  TABLES  1 C 

IC 

5. ARG+4 

R 5 <=  BYTES  1-4  OF  FRACTION  OF  T 

IE 

0,0(4. 7) 

FO  <=  TABLE  2 ENTRY  - SLOPE 

SRI 

5.2 

LOU  3 BYTES  OF  R3  <=  FRACTION  OF 

* 

FRACTIONAL  DISPLACEMENT  FOR  MINI-MAX  LINE 

ST 

5. FRAC 

FRAC  <=  FRACTIONAL  DISPLACEMENT  FRACTION 

MV  I 

F RAC , X 1 40 ' 

FRAC  <=  FRACTIONAL  DISPLACEMENT 

ME 

0. FRAC 

FO  <=  FRAC*SLOPE 

AE 

0.0(4.61 

FO  <=  MINI-MAX  ESTIMATE  OF  Z**1/5 

LTR 

9.9 

CHECK  IF  X NEGATIVE 

ME 

0. 0(2. 8) 

FO  <=  MINI-MAX  EST  OF  T*M/5 

BNM 

NOSIGN 

IF  X POSITIVE.  NO  FIXES 

0 

3 . =F '128' 

SIGN  OF  EXPONENT  OF  16**N  MADE  MINUS 

NOSIGN 

* 

L DR 

2.0 

F2  <=  MINI-MAX  EST  OF  T**1/5  = EST  1 

* 

BEGIN 

TWO  APPLICATIONS  OF  NEUTON'S  METHOD 

1C 

1c 

WITH 

SOME  GPR  FIX-UPS  INTERLEAVED. 

MDR 

2.2 

F 2 <=  EST 1 **  2 

STC 

3.  MUL 

MUL  <=  SIGN(X)  * 16**N 

MDR 

2.2 

F 2 <=  EST  1 **  4 

L 

1,24(9) 

R 1 RESTORED 

LDR 

6,2 

F 6 <=  EST  1 **  4 

MDR 

2,0 

F 2 <=  EST  1 **  5 

L 

2,28(9) 

R2  RESTORED 

SDR 

2.4 

F 2 <=  EST  1 **  5 - T 

DER 

2.6 

F 2 <=  (EST  1 **  5 - T ) /EST  1 **  4 

L 

3.32(9) 

R 3 RESTORED 

ME 

2.  ONE  5 

F 2 (EST  1 **  5 - TJ/S^EST  1 **  4 

L 

4,36(9) 

R 4 RESTORED 

SDR 

0,2 

FO  <-  EST  2 

LDR 

2.0 

F 2 <=  EST  2 

MDR 

2.2 

F2  <=  EST  2 **  2 

L 

5.40(9) 

R 5 RESTORED 

MDR 

2.2 

F 2 <=  EST  2 **  4 

L 

6.44(9) 

R 6 RESTORED 

LDR 

6.2 

F 6 <-  EST  2 4 

MDR 

2.0 

F 2 <=  EST  2 5 

L 

7,48(9) 

R 7 RESTORED 

SDR 

2.4 

F 2 EST  2 **  5 - T 

L 

8,52(9) 

R 8 RESTORED 

DDR 

2,6 

F 2 <=  (EST  2 **  5 - T ) /EST  2 **  A 

SR 

15.15 

R 1 5 <=  0 (RETURN  CODE) 

MD 

2 . ONE  5 

F 2 <=  (EST  2 **  5 - T)/5*EST  2 **  4 

MV  I 

12(9) .X 'FF  ' 

INDICATE  CONTROL  RETURNED 

SDR 

0.2 

FO  <=  EST  3 (FINAL  ESTIMATE  OF  T**1/5) 

L 

9.56(9) 

R 9 RESTORED 

MO 

0 , MUL 

FO  <=  ESTIMATE  OF  IXl**3/5 

L 

13.4(13) 

R 1 3 RESTORED 

BR 

14 

RETURN 

CNOP 

4.8 

FORCE  CORRECT  ALIGNMENT 

FRAC 

DC 

F 'O' 

ARG 

DC 

0 ' 0 . 1 

MUL 

DC 

X '0010000000000000' 

ONE  5 

DC 

X'40333 3 3333333333' 

LTORG 

TAB  1 

DC 

X ' 40931BB3' 

DC 

X '4099CBC3' 

80 
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DC 

X 

409F7DF5' 

DC 

X 

-10A-179CE  ' 

DC 

X '40A8EBB4 ' 

DC 

X 

40ACF 1 39 1 

DC 

X 

4PBQ9F20' 

DC 

X 

4 0 D -4  0 4 9 -1  ' 

DC 

X 

40372D05 ' 

DC 

X 

40BA214F  ' 

DC 

X 

40SCE873 ' 

DC 

X 

4 0 B F S 8 1 6 1 

DC 

X 

40C20406 ' 

DC 

X 

40C  46286 ' 

DC 

X 

40C6A45E  ' 

DC 

X 

40CSCD 1 7 1 

DC 

X 

40CADF  05 ' 

DC 

X 

40CCDC2C  ' 

DC 

X 

4 0 C E C 6 •!  A ' 

DC 

X ' •40D09EE7 ' 

DC 

X 

40D2675C 1 

DC 

X 

40D4200A  ' 

DC 

X 

40D5CC70' 

DC 

X 

4 0 D 7 6 S 1 2 1 

DC 

X 

40DSFD9S  ' 

DC 

X 

4PDA84CS 1 

DC 

X 

40DC0 1 53 ‘ 

DC 

X 

-10DD73DA  ' 

DC 

X 

-10DFDCF  1 ' 

DC 

X 

40E03D ID ' 

DC 

X 

40E 1 94DA  * 

DC 

X ' 40E2E-199  ' 

DC 

X 

40E 42CC 1 1 

DC 

X 

40E56DB3’ 

DC 

X 

4 PE  6 A 7c  S ' 

DC 

X 

4 0 E ' D B 5 1 1 

DC 

X 

4PE9C89C ' 

DC 

X 

40EA2FF0* 

DC 

X 

40E651SF ' 

DC 

X ' 40EC63S7  1 

DC 

X 

4PED84A1  1 

DC 

X 

40EE96S6 ' 

DC 

X 

40EFA3971 

DC 

X 

4 OF  OACO-4 1 

DC 

X 

4CF  1AFFB  ' 

DC 

X 

40F2AFA6' 

DC 

X 

40F3AB2D 1 

DC 

X 

4 OF  4A2B6 ' 

DC 

X 

40F 59664 ' 

DC 

X 

40F6S65B ' 

DC 

X 

40F  772B9 ' 

DC 

X 

40F85B9D 1 

DC 

X 

4 0 F 9 4 1 2 4 ' 

DC 

X 1 40FA236A  1 

DC 

X 

40FB02SS 1 

DC 

X 

40FBDE98 ' 

DC 

X 

40FCS7B 1 ' 

DC 

X ' 

40FD8DEA ' 

DC 

X 1 

40FE6159' 

DC 

X ' 

40FF  32  1 1 ' 

DC 

X 1 

3F6B5E5D  ' 

DC 

X ' 3 F 5 B 5 A A 7 ' 

DC 

X ' 

3F4FE171  ' 

DC 

X ' 

3F4736EF 1 

DC 

X ’ 3F  4069F  9 1 

DC 

X ' 

3F3AEB91 ' 

DC 

X 1 

3F 366 146' 

DC 

X 1 

3F  328EEF  ' 

DC 

X ' 3F  2F  -4AE 5 ’ 

DC 

X ’ 

3F2C7758' 

DC 

X ' 

3F29FE5F  ' 
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DC 

X 

3F27CF  79 ' 

DC 

X 1 3F25DOFD  ' 

DC 

X 

3F  24200-4 1 

DC 

X 

3F228DB5 ' 

DC 

X 

3F2120C2' 

DC 

X 

3F  1 F D -»0S  ' 

DC 

X 

3F1EA350' 

DC 

X 

3F  1 DSB 1 7 1 

DC 

X 

3F  1 CS870 1 

DC 

X 

3F  1 B98CIF  ' 

DC 

X 

3F  1 A5A4B  ' 

DC 

X 

3F19EAE61 

DC 

X 

3F  19292  1 ' 

DC 

X 

3F  1S73A6' 

DC 

X 

3F  1 7C94S ' 

DC 

X 

3F  1 72902  1 

DC 

X 

3F1691EC ' 

DC 

X 

3F16033B' 

DC 

X 1 3F 1 57C3C  ' 

DC 

X 

3F14FC40  ' 

DC 

X 

3F14S2E0' 

DC 

X 

3F  1 -40F  75  ' 

DC 

X 

3F13A198’ 

DC 

X 

3F 133SE 1 1 

DC 

X 

3F  12D4F4' 

DC 

X 

3F  12757A  ' 

DC 

X 

3F121A271 

DC 

X 1 3F 1 1C2B5  1 

DC 

X 

3F  1 16EE4  ' 

DC 

X 

3F1  1 1 E 78 • 

DC 

X 

3F 1 OD 1 3D  ' 

DC 

X 

3F  108701  1 

DC 

X 

3F103F971 

DC 

X 

3EFFAD4E  ' 

DC 

X 

3EFBS94  1 ' 

DC 

X 

3EF7SB10' 

DC 

X 

3EF 3B0AD  ' 

DC 

X ' 3EEFFS2D ' 

DC 

X ' 3EEC5FC9  1 

DC 

X 

3EESE5DA  1 

DC 

X 

3EE5SSD6' 

DC 

X 

3EE2474D ' 

DC 

X 

3 E D F 1 F'  E 8 ' 

DC 

X 

3E  DC  1 1 67 ' 

DC 

X 

3ED91A9C  1 

DC 

X 1 3ED63A6E  ' 

DC 

X 

3ED36FD6 1 

DC 

X 

3ED0B9DC ' 

DC 

X 

3ECE  1796' 

DC 

X 

401BDBSC ' 

DC 

X 

4 0 3 0 8 0 C 0 ' 

DC 

X 

405472P 1 ' 

DC 

X 1 40930SSC  1 

DC 

X 

41 100000' 

DC 

X 

4 1 1 3DB8C ' 

DC 

X 

4 1 3080C0 1 

DC 

X 

4154'2D1 1 

DC 

X 

4 1 93088C  ' 

END 

*2 
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TESTP 


TESTP  CSECT 
* 

* ROUGHLY  EQUIVALENT  TO  THE  FORTRAN  CODE  BELOW  EXCEPT  THE 

* THE  FUNCTION  CHINV  PASSED  IN  THE  ARGUMENT  LIST 

* IS  IMPLEMENTED  IN  LINE  IN  THE  ASSEMBLY  LANGUAGE  VERSION. 

* A CALL  TO  THE  ASSEMBLY  LANGUAGE  VERSION  SHOULD 

* PASS  A SEMI-LOGARITHMIC  INTERPOLATION  TABLE  ( CH I NV ( 884 ) ) 

* RATHER  THAN  A FUNCTION  NAME.  ALSO  THE  PARAMETER  ADDRESSES 

* ARE  OBTAINED  FROM  LOCAL  STORAGE  IN  THE  CALL  TO  TESTP 

* NOT  FROM  THE  PARAMETER  LIST.  THE  PARAMETER  ADDRESSES 

* ARE  INITIALIZED  BY  THE  ENTRY  POINT  TESTPI  IN  THE  ASSEMBLY 

* LANGUAGE  VERSION. 

* 

* NOTE  THAT  THIS  MEANS  TESTPI  MUST  BE  CALLED  BEFORE 

* THE  FIRST  CALL  TO  TESTP  OR  UNPREDICTABLE  ABENDS 

* WILL  RESULT. 

* 

* TE ST P(T,TE,J,OSIG,N,TUP,DELT, FRAC, NTAB, CHINV) 

* IMPLICIT  REAL'8  (A-H.O-Z) 

* RE AL*8  T(NTAB),TECNTAB),J(NTAB),OSIG(NTAB),N(NTAB),TUP(NTAB) 

* REAL'S  C/2. 997925D10/FRAC.FRACI, DELT, DELTS 

* GOTO  10 

* ENTRY  TESTPI(T,TE,J,OSIG,N, TUP, DELT , FRAC , NTAB , CHINV) 

* FRACI=2.D0/FRAC 

* RETURN 

* 10  DELTS=DELT*FRACI 

* DO  20  1=1. NTAB 

* TUP (I )=C*J(I )*J(I )*OSIG(I )*N(I ) 

* IF(DELTS'TUP(I).LE.TE(I))GOTO  20 

* DELTS=TE(I )/TUP( I ) 

* 20  CONTINUE 

* DELT=FRAC'DELTS 

* DO  20  1=1. NTAB 

* T E ( I )=TE(I ) + TUP ( I ) *DELT 

* 20  TCI  )=CHINVCTECI ) ) 

* RETURN 

* END 

* 

USING  *, 15 


B 

TFIRST 

BRANCH  AROUND  NAME,  SAVE  AREA  ETC 

DC 

X 1 05 ' 

DC 

CL  5 ' TESTP 1 

ENTRY 

TESTPI 

USING 

*,  15 

TESTPI 

B 

IFIRST 

BRANCH  AROUND  NAME, SAVE  AREA  ETC. 

DC 

X '06' 

DC 

CL7 ' TESTPI  ' 

AREA 

DS 

18F 

SAVE  AREA 

TDISP 

DC 

X' 0000-4 <110' 

TBND 

DC 

X '00000230' 

REGS 

DS 

1 OF 

REGISTER  STORAGE 

CHOP 

0,8 

FORCE  DOUBLE  WORD  ALIGNMENT 

C 

DC 

D ' 2 . 997925E 1 0 

TION 

DC 

X '•4519AEF8FF9F9CG2' 

FRAC 

DC 

D ' 0.  ' 

FRACI 

DC 

D ' 0.  ' 

DELT 

DC 

D'O.  ' 

WM1 

DC 

D '0.  ' 

UP  1 

DC 

D'O.' 

FLOAT 

* 

DC 

X '-4000000000000000' 

* 

* 

FIRST 

ENTRY  POINT 

I FIRST 

STM 

14. 12,12(13) 

SAVE  CALLING  ROUTINE'S  GPR'S 

LR 

2,13 

R2  <=  ADDR  OLD  SAVE  AREA 

I 


| TT’™’ 
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LA 

13, AREA 

R 1 3 <=  ADOR  NEW  SAVE  AREA 

DROP 

15 

R 1 5 NO  LONGER  BASE  REG 

USING 

AREA, 1 3 

R13  NEW  BASE  REGISTER 

ST 

2, -1(13) 

LINK  SAVE  AREAS 

ST 

13.8(2) 

LM 

3,  12.0(1) 

R3-R12  <=  ADDR'S  ARGS 

LD 

0.0(10) 

FO  <=  FRAC 

L 

11,0(11) 

R 1 1 <=  NT  AB 

LD 

2 . =D  * 2 . * 

F 2 <=  2. DO 

SLA 

11.3 

R 1 1 <=  N T A B*8 

STD 

O.TRAC 

F RAC ( LOCAL ) <=  FRAC 

SR 

3.4 

R 3 <-  BASE  T - BASE  TE 

DDR 

2.0 

F 2 <=  2 . DO/FRAC 

SR 

5.4 

R 5 <=  BASE  J - BASE  TE 

STD 

2.FRACI 

FRACI  <=  2. DO/FRAC 

SR 

6,4 

R6  <=  BASE  OSIG  - BASE  TE 

SR 

7.4 

R 7 <=  BASE  N - BASE  TE 

SR 

8.4 

R 8 <=  BASE  TUP  - BASE  TE 

LA 

10.8 

RIO  <=  8 (INCREMENT) 

SR 

11,10 

R 1 1 <=  8* (NT  AB- 1 ) 

AR 

11,4 

R 1 1 <=  BASE  TE  + 3MNTAB-1)  COMPARAND 

STM 

3.  12. REGS 

REGS  <=  R3-R12 

L 

13.4(13) 

R 1 3 <=  ADOR  OLD  SAVE  AREA 

LM 

14,12.12(13) 

GPR  'S  RESTORED 

SR 

15,15 

R 1 5 <=  0 (RETURN  CODE) 

MV  I 

12( 13) ,X 'FF ' 

INDICATE  CONTROL  RETURNED 

BR 

14 

RETURN 

DROP 

13 

USING 

TESTP, 15 

TFIRST 

STM 

14.12, 12(13) 

SAVE  CALLING  ROUTINE'S  GPR'S 

LR 

2.13 

R2  <=  ADDR  OLD  SAVE  AREA 

LA 

1 3. AREA 

R 1 3 <=  ADDR  NEW  SAVE  AREA 

DROP 

15 

R 1 5 NO  LONGER  BASE  REG 

USING 

AREA. 13 

R 1 3 NEW  BASE  REGISTER 

ST 

2.4(13) 

LINK  SAVE  AREAS 

ST 

1 3 . S ( 2 ) 

LM 

3.  12. REGS 

SET  UP  GPR'S 

LD 

6.0(9) 

F 6 <.-  DELT 

MD 

6.FRACI 

F 6 <=  DEL  T *FRAC  I = DELTS 

LOOP  1 

LD 

0. 0(5. 4) 

F 0 < = J ( I ) 

MDR 

0.0 

FO  <=  J(I)M(I) 

MD 

O.C 

FO  < = C*J(I )*J( I ) 

MD 

0 . 0 ( 6 . 4 ) 

F 0 < = C*J( I )*J( I )*OSI G( I ) 

MD 

0.0(7, 4) 

FO  <=  C*J(I)M(I)'*-OSIG(I)*N(I) 

STD 

0. 0(8. 4) 

TUP(I)  <=  C+J( I ) M( I )*OSIG( I )*N( I ) 

MDR 

0.6 

FO  <-  TUP( I ) ♦DELTS 

CD 

0,0(4) 

IF(DELTSMUPCI)  .LE.TEU  )) 

BNH 

ARND 

GOTO  ARND 

LD 

6.0(4) 

F 6 <=  TE ( I ) 

DD 

6. 0(8. 4) 

F 6 <=  TE(I)/TUP(I)  = DELTS 

ARNO 

BXLE 

4. 10. L00P1 

I <=  1 + 1 £ GOTO  LOO P 1 IF  NOT  DONE 

MO 

6. FRAC 

F 6 <=  DELTS^FRAC  = DELT 

L 

4.REGS+4 

R 4 <=  BASE  TE 

STD 

6.0(9) 

DELT  <=  DELTS+FRAC 

LOOP2 

LD 

0.0(8, 4) 

F 0 < = TUP( I ) 

MD 

0.0(9) 

FO  <=  TUP(1)*DELT 

AD 

0.0(4) 

FO  <=  T E ( I ) + TUP( I )*DELT 

STD 

0.0(4) 

TE  ( I ) <=  T E ( I ) + T U P ( I ) +DE  L T 

LH 

2.0(4) 

R2  <=  HIGH  ORDER  BYTES  OF  T E ( I ) 

MV  C 

FLOAT+1 (6) . 2(4)  FLOAT  <=  FRACTIONAL  DISPLACEMENT 

S 

2,  TDISP 

REDUCE  R2  BY  TDISP  NOW  # DOUBLE  WORDS 

* 

FROM  BASE  OF  INTERPOLATION  TABLES 

LD 

4. FLOAT 

F 4 <=  FRACTION  0 LE  FRAC  LT  1 

BM 

LOUT 

IF  RESULT  NEGATIVE  - ■ 'H  OF  RANGE 

* 

GOTO  LOUT 

C 

2.TBND 

COMPARE  R2  TO  TBND  I " GREATER 

BH 

HITE 

OUT  OF  RANGE  - GOTO  HITE 

SD 

4,  =D ' . 5' 

F 4 < = X - FRAC  - . 5 - . 5 LE  X LE  . 5 

SLA 

2.3 

R2  <=  R2+8  NOW  BYTE  DISPLACEMENT 

8-4 


I i 
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* FROM  BASE  OF  INTERPOLATION  TABLE. 


* 


* 

NOW 

COMPUTE  WEIGHTS 

FOR  CUBIC  INTERPOALTION  OF 

l - * 

% 

FUNCTIONS  OF  T 

LDR 

2,4 

F 2 <=  X 

MDR 

A,  A 

F 4 <=  X + *2  = X2 

1 . , 

H DR 

A,  A 

F 4 <=  X2/2 

SD 

A, =D 1 1 . 1 2 5 1 

F 4 <=  X2/2  - 9/8 

LDR 

6 . 4 

F 6 <=  X2/2  - 9/8 

HDR 

■1,4 

F 4 <=  X2/4  - 9/16 

MDR 

6,2 

F6  <=  X 3/2  - 9X/8 

LCDR 

0.4 

FO  <=  -X2/4  + 9/16 

ADR 

0.6 

FO  <=  X 3/2  - X2/4  - 9X/8  + 9/16 

STD 

0.WM1 

UM 1 <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 

, 

* 

ING  TO  CLOSEST  SMALLER  VALUE  OF  T. 

LCDR 

0,4 

FO  <=  -X2/4  + 9/16 

SDR 

0.6 

FO  <=  -X  3/2  - X2/4  + 9X/8  + 9/16 

STD 

0.WP1 

WP 1 <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 

% 

ING  TO  CLOSEST  LARGER  VALUE  OF  T. 

ADR 

6,2 

F 6 <=  X 3/2  - X/8 

AD 

4 , =D 1 . 5 1 

F 4 <=  X2/4  - 1/16 

[ 4 

MD 

6, =X ' 4055555555555555 1 F6  <=  X3/6  - X/24 

l ' 

LDR 

0.4 

FO  <=  X2/4  - 1/16 

SDR 

0.6 

FO  <=  -X 3/6  + X2/4  + X/24  - 1/16 

l •» 

ADR 

6.4 

F 6 <=  X 3/6  + X2/4  - X/24  - 1/16 

MD 

0.0(12,2) 

FO  <=  WEIGHT1  * CHNV1 

1 ^ ' 

MD 

6.24(12,2) 

F 6 <=  WEIGHT4  * CHNV4 

1 * 1 

LD 

2,1,'MI 

F 2 <=  WWIGHT2 

I i ! 

ADR 

0,6 

FO  <=  W1 *CHNV1+W4*CHNV4 

ii  . 

LD 

4.WP1 

F 4 <=  WEIGHT3 

t » 

MD 

2 . 8 ( 12,2) 

F2  <=  W2*CHNV2 

MD 

4,16(12.2) 

F 4 <=  W3*CHNV3 

\ * 

ADR 

0.2 

FO  <=  U1*CHNV1+W2*CHNV2+W4*CHNV4 

I * 

ADR 

0.4 

FO  <=  INTERPOLATED  VALUE  OF  CHINV(TE(I)) 

STD 

0.0(3. 4) 

T ( I ) <=  CHINV(TE(I)) 

BXLE 

4. 10. L00P2 

I < = I + 1 E GOTO  L00P2  IF  NOT  DONE 

B 

ARND  1 

LOUT 

STD 

0,0(3. 4) 

T (I  ) <=  TEd  ) (FOR  T < 4096  K) 

BXLE 

4. 10.L00P2 

I <=  1+1  AND  GOTO  L00P2  IF  NOT  DONE 

8 

ARND  1 

GOTO  ARND  1 

HITE 

SD 

O.TION 

FO  <=  TE(I  ) - TION 

HDR 

0,0 

FO  <=  (TE(I  ) -T I ON ) /2 . DO 

STD 

0.0(3. 4) 

Td)  <=  (TE(I)-TION)/2.D0 

f 

BXLE 

4,  1 0 , L00P2 

I <=  1+1  AND  GOTO  L00P2  IF  NOT  DONE 

ARND1 

L 

13.4(13) 

R13  <=  ADDR  OLD  SAVE  AREA 

1 . 

LM 

14, 12, 12(13) 

GPR 1 S RESTORED 

SR 

15.15 

R 1 5 <=  0 (RETURN  CODE) 

MV  I 

12( 13) ,X 'FF  ' 

INDICATE  CONTROL  RETURNED 

BR 

14 

RETURN 

END 

I I 
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TOUT 


TOUT 
x 
* 
x 

X 
X 
* 

X 
X 
X 
X 
X 
X 
X 
X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XXXXXXXXXXXXXXXXXXXXXXX  NOTE  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X * XX  xxxx 
****  NOUT  MUST  BE  CALLED  BEFORE  TOUT  IF  TOUT  IS  TO  **** 
****  WORK  SINCE  NOUT  SETS  UP  AN  AREA  WITH  THE  **** 
****  REGISTERS  THAT  TOUT  USES  - THIS  MAKES  SENSE  **** 
****  IN  THIS  APPLICATION  (NOUT  IS  ALWAYS  CALLED  **** 


****  FIRST)  BUT  MUST  BE  CHANGED  IF  NOUT  IS  NOT  TO  BE  **** 
****  CALLED  BEFORE  TOUT  **** 
xxxx  xxxx 

XXXXXXXXXXXXXXXXXX XX XXXX XXX XXX XXXXXXX XX XXXXXXXXXXXXXXXXXXXXXXX XX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXX 


CSECT 

ROUGHLY  EQUIVALENT  TO  THE  THREE  FORTRAN  SUBROUTINES  BELOW 
NOUT  OPENS  LOGICAL  UNIT  9 (FT09F001)  AND  DOES  THE  OUTPUT 
OF  THE  SUBROUTINE  NOUT.  THE  PARAMETER  NTAB  IS  PASSED 
BY  ENTRY  POINT  NOUT  AND  THE  NTAB  IN  THE  CALLING  SEQUENCE 
TO  TOUT  IS  IGNORED  BY  THE  ASSEM3L Y LANGUAGE  VERSION  OF 
THESE  ROUTINES.  FORTRAN  CLOSES  DATA  SETS  IT  KNOWS  ABOUT 
BUT  FORTRAN  WON'T  KNOW  ABOUT  THIS  DATA  SET  SO  CTOUT  MUST 
BE  CALLED  BEFORE  THE  STOP  STATEMENT  IN  THE  MAIN  ROUTINE. 
THE  FORTRAN  CTOUT  DOES  THE  SAME  THING  - I.E.  IT  CAUSES  A 
CLOSE  TO  BE  ISSUED  FOR  THE  DATA  SET  REFERENCED  BY  THE 
DDNAME  FT09F001 . USES  QSAM  UNDER  OS/VS2. 


x 

x 

x 

* SUBROUTINE  NOUT ( EF LUX , PS  I 0 , FRAC , T I MMAX . NT AB . N , S ) 

* IMPLICIT  REAL  *8  (A-H.O-Z) 

* REALM  NCNTAB)  ,S(NTAB) 

*9001  FORMAT ( 10A8) 

* WRITE (9. 9001  )EFLUX, PS  10, FRAC, T I MMAX, NTAB 

* WRITE(9, 9001  )N 

* WRITE (9, 9001  )S 

* RETURN 

* END 
x 

* SUBROUTINE  T OU T ( T I M , T . J , DE L T , I I T ER , NT AB ) 

* IMPLICIT  REALM  (A-H.O-Z) 

* REALM  T(NTAB)  , J(NTAB) 

*9001  FORMAT ( 1 OA  8 ) 

* WRITE(9.9001)TIM,DELT.IITER 

* WR I T E ( 9 . 900 1 ) T 

* WRITEC9, 9001 ) J 

* RETURN 

* END 

X 


* 

SUBROUTINE  CTOUT 

* 

END  FILE 

9 

* 

RETURN 

1C 

END 

* 

USING 

*.15 

B 

WFIRST 

BRANCH 

* 

AND  OT 

DC 

X ' 0-4  * 

LENGTH 

DC 

CL  5 1 TOUT  ' 

NAME 

ENTRY 

NOUT 

USING 

*.15 

NOUT 

B 

OFIRST 

BRANCH 

1C 

AND  OT 

AROUND  NAME.  VARIABLES.  SAVE  AREA 
HER  ENTRY  FOINTS 
OF  NAME 


AROUND  NAME.  VARIABLES.  SAVE  AREA 
HER  ENTRY  POINT 
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DC 

X 1 04  1 

LENGTH  OF  NAME 

DC 

C L 5 ' NOUT  * 

NAME 

USING 

*.  15 

ENTRY 

CTOUT 

CTOUT 

B 

CFIRST 

BRANCH  AROUND  NAME,  VARIABLES  AND 

DC 

X ' 05  1 

LENGTH  OF  NAME 

DC 

CL  5 1 CTOUT  ' 

DROP 

15 

USING 

AREA, 13 

AREA 

DS 

18F 

SAVE  AREA 

BUF 

DS 

20F 

OUTPUT  BUFFER  (ONE  CARD  - WE  USE 

BLNCRD 

DC 

20CL4 1 

A BLANK  CARD  - I'M  LAZY 

TEN 

DC 

F ' 10' 

LM0V3 

MVC 

BUF ( 1 ) , 0( 3) 

TO  BE  EXECUTED  BY  AN  EX 

LrOV*4 

MVC 

BUF ( 1 ) .0(4) 

SREG 

DS 

5F 

DROP 

13 

-* 

USING 

CTOUT, 15 

* 

* 

CTOUT 

CFIRST 

STM 

14, 12,12(13) 

SAVE  CALLING  ROUTINE'S  GPR'S 

LR 

2.13 

R 2 <=  ADDR  OLD  SAVE  AREA 

LA 

13, AREA 

R 1 3 <=  ADDR  NEW  SAVE  AREA 

DROP 

15 

R 1 5 NO  LONGER  BASE  REG 

USING 

AREA,  1 3 

R 1 3 NEW  BASE  REG 

ST 

2.4(13) 

LINK  SAVE  AREAS 

ST 

13.8(2) 

* 

CLOSE 

LU9DCB 

* 

* 

RETURN 

1 SEQUENCE 

L 

13. 4( 13) 

R 1 3 <=  AOOR  OLD  SAVE  AREA 

LM 

14.2, 12(13) 

GPR'S  RESTORED 

SR 

15,15 

R 1 5 <=0,  RETURN  CODE 

MV  I 

12(13), X'FF' 

INDICATE  CONTROL  RETURNED 

BR 

14 

RETURN 

♦ 

DROP 

13 

* 

* 

NOUT(EFLUX,PSIO,FRAC 

, T I MMAX , NTAB . N , S ) 

USING 

NOUT,  15 

OFIRST 

STM 

14.  12. 12(13) 

SAVE  CALLING  ROUTINE'S  GPR’S 

LR 

2,13 

R2  <=  ADDR  OLD  SAVE  AREA 

LA 

13. AREA 

R 1 3 <=  ADDR  NEW  SAVE  AREA 

DROP 

15 

R 1 5 NO  LONGER  BASE  REG 

USING 

AREA.  1 3 

R 1 3 NEW  BASE  REG 

ST 

2.4(13) 

LINK  SAVE  AREAS 

ST 

13,8(2) 

LM 

2. 8. 0(1) 

R2-R8  <=  ADDR'S  ARGS 

OFEN 

(LU9DCB. (OUTPUT)  ) 

MVC 

BUF ( 80 ) , BLNCRD 

i FILL  BUFFER  WITH  BLANKS 

MVC 

BUF(8) ,0(2) 

FIRST  8 BYTES  OF  BUFFER  <=  EFLUX 

MVC 

BUF+8 ( 8 ) . 0 ( 3) 

2ND  8 BYTES  OF  BUFFER  <=  PISO 

MVC 

BUF+ 1 6 ( 8 ) , 0 ( 4 ) 

3RD  8 BYTES  OF  BUFFER  < 

MVC 

BUF+24 ( 8 ) , 0(5) 

4TH  I BYTES  OF  BUFFER  <: 

MVC 

BUF+36(4) ,0(6) 

2ND  HALF  OF  5TH  8 BYTES 

* 

BUFFER  <=  NTAB 

PUT 

LU9DCB, BUF 

WRITE  OUT  1ST  RECORD 

LR 

3.7 

R 3 <=  BASE  ADDR  N 

LR 

4,8 

R4  <=  BASE  ADDR  S 

L 

7,0(6) 

R 7 <=  NTAB 

SR 

6.6 

R6  <=  0 

0 

6. TEN 

R6  <=  REMAINDER  OF  NTAB/ 1 0 

* 

R7  <=  INTEGER  PART  OF  NTAB/10 

LR 

5,6 

R 5 <=  REMAINDER  OF  NTAB/10 

M 

6, TEN 

R 7 <=  (NTAB/10)*10  INTEGER  MODE 

* 

It  CAROS  - 1 (UNLESS  NTAB  ENDS  IN  1 

SLL 

5,3 

F 5 <=  REMAINDER  NTAB/10  * 8 

' 
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SLL 

7,3 

R7  <=  ( NT  AB/ 1 0 ) * 1 0 * 8 

* 

LA 

6,80 

# BYTES  IN  # CARDS  - 1 

R6  <=  80  (INCREMENT  FOR  LOOP) 

- 

LR 

2,3 

R 2 <=  BASE  ADDR  N 

LA 

■4,0(4) 

HIGH  BYTE  OF  BASE  ADDR  S ZEROED 

SR 

7.6 

R 7 <=  (NTAB/10  - 1 ) * 80 

STM 

5,7, SREG 

SAVE  INCREMENTS  AND  OFFSET  FOR  COMPARAND 

STM 

6,7, SREG+ 1 2 

TWO  COPIES  OF  INCREMENTS  AND  OFFSET 

AR 

7,  3 

R 7 <=  BASE  ADDR  N + ( ( N T AB/ 1 0 ) - 1 ) * 80 

LOOP  1 

MV  C 

BUF ( 80) ,0(3) 

PUT  NEXT  80  BYTES  IN  BUFFER 

PUT  LU9DCB.BUF 
BXLE  3,6. L00P1 
LTR  5,5 
BZ  ARN0 1 

MV  C BUF(80),BLNCRD 
EX  5.LM0V3 

PUT  LU90CB, BUF 


AND  WRITE  THEM  OUT 

KEEP  GOING  TILL  WE'RE  DONE 
CHECK  IF  NO  MORE  THINGS  TO  WRITE 
IF  NOT  DON'T  WRITE  OUT  ANOTHER  CARD 
BECAUSE  FORTRAN  WOULDN'T 

FILL  BUFFER  WITH  BLANKS 
MOVE  IN  LAST  FEW  (<10)  VALUES 
AND  WRITE  OUT  LAST  CARD  FOR  N 


ARND1 

SR 

7,2 

R 7 <=  (NTAB/10  - 1)  * 80 

AR 

7.4 

R 7 <=  BASE  S + ( (NTAB/10)-1 )*80 

} L00P2 

MVC 

BUF (80) ,0(4) 

PUT  NEXT  80  BYTES  IN  BUFFER 

* 

AND  WRITE  THEM  OUT 

PUT 

LU9DCB, BUF 

BXLE 

4, 6, L00P2 

KEEP  GOING  TILL  WE'RE  DONE 

LTR 

5,5 

CHECK  IF  NO  MORE  THINGS  TO  WRITE 

BZ 

ARND2 

IF  NOT  DON'T  WRITE  OUT  ANOTHER  CARD 

* 

BECAUSE  FORTRAN  WOULDN'T 

j 

MVC 

BUF ( 80) , BLNCRD  FILL  BUFFER  WITH  BLANKS 

9 

EX 

5, L MOV  4 

MOVE  IN  LAST  FEW  ( < 1 0 ) VALUES 

» * 

AND  WRITE  OUT  LAST  CARD  FOR  S 

* 

PUT 

LU90CB, BUF 

* 

* 

RETURN  SEQUENCE 

ARND2 

L 

13,4(13) 

R 1 3 <=  ADDR  OLD  SAVE  AREA 

LM 

14,8, 12(13) 

GPR  ' S RESTORED 

SR 

15,15 

R 1 5 <=  0,  RETURN  CODE 

MV  I 

12(13), X ' FF ' 

INDICATE  CONTROL  RETURNED 

BR 

14 

RETURN 

* 

DROP 

13 

* 

* 

TOUT(TIM,T, J.OELT, IITER.NTAB)  WE  IGNORE  LAST  PARAMETER 

USING 

TOUT,  15 

UFIRST 

STM 

14,12,12(13) 

SAVE  CALLING  ROUTINE'S  GPR'S 

LR 

2,13 

R2  <=  ADDR  OLD  SAVE  AREA 

LA 

13, AREA 

R 1 3 <=  ADDR  NEW  SAVE  AREA 

DROP 

15 

R 1 5 NO  LONGER  BASE  REG 

♦ 

USING 

AREA,  1 3 

R 1 3 NEW  BASE  REG 

ST 

2,4(13) 

LINK  SAVE  AREAS 

ST 

13,8(2) 

LM 

2 • 6 , 0 ( 1 ) 

R2-R6  <=  ADDR'S  ARC'S  WE  USE 

MVC 

BUF(80), BLNCRD 

i FILL  BUFFER  WITH  BLANKS 

MVC 

BUF(8) ,0(2) 

FIRST  8 BYTES  OF  BUFFER  <=  TIM 

MVC 

BUF+8(8) ,0(5) 

2ND  8 BYTES  <=  DELT 

MVC 

BUF+20(4),0(6) 

2ND  HALF  3 8 BYTES  <=  I I TER 

PUT 

LU9DCB, BUF 

LM 

5, 9, SREG 

R5-R9  <=  NUMBER  OF  VALUES  ON  LAST  CARO 

* 

T AND  J AND  INCREMENTS  AND  COMPARANDS 

AR 

7,3 

R 7 <=  COMPARAND  FOR  L00P3 

AR 

9,4 

R9  <=  COMPARAND  FOR  L00P4 

L00P3 

MVC 

BUF(80) ,0(3) 

PUT  NEXT  80  BYTES  IN  BUFFER 

* 

AND  WRITE  THEM  OUT 

PUT 

LU9DCB, BUF 

BXLE 

3.6.L00P3 

KEEP  GOING  TILL  WE'RE  DONE 

LTR 

5,5 

CHECK  IF  NO  MORE  THINGS  TO  WRITE 

BZ 

L00P4 

IF  NOT  DON'T  WRITE  OUT  ANOTHER  CARD 
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yHOU  COi’Y  i'UKM^l^LU  TO  LUC 


♦ 


« 

L00P4 

* 


t 


* 


♦ 

♦ 

♦ 


BECAUSE  FORTRAN  UOUIDN'T 


nvc 

BUF ( 80 ) » BLNCRD 

FILL  BUFFER  WITH  BLANKS 

EX 

5.LMOV3 

MOVE  IN  LAST  FEW  (<10)  VALUES 

AND  WRITE  OUT  LAST  CARD  FOR  T 

PUT 

LU9DCB . BUF 

MV  C 

BUF ( 80 ) • 0 ( 4 ) 

PUT  NEXT  80  BYTES  IN  BUFFER 

AND  WRITE  THEM  OUT 

PUT 

LU9DCB . BUF 

BXLE 

4.8.L00P4 

KEEP  GOING  TILL  WE  ’RE  DONE 

nvc 

BUF(80) .BLNCRD 

FILL  BUFFER  WITH  BLANKS 

LTR 

5.5 

CHECK  IF  NO  MORE  THINGS  TO  WRITE 

BZ 

ARND3 

IF  NOT  DON’T  WRITE  OUT  ANOTHER  CARD 
BECAUSE  FORTRAN  WOULDN’T 

EX 

5.LMOV4 

MOVE  IN  LAST  FEW  (<10)  VALUES 

ANO  WRITE  OUT  LAST  CARD  FOR  J 

PUT 

LU9DCB. BUF 

RETURN 

SEQUENCE 

ARND3 


LU9DCB 


L 

13.4(1 3) 

R 1 3 <=  ADDR  OLD 

SAVE  AREA 

IM 

14,9.12(13) 

GPR ’S  RESTORED 

SR 

15.15 

R 1 5 <=  0,  RETURN 

CODE 

MV  I 

12(13). X’FF’ 

INDICATE  CONTROL 

RETURNtP 

BR 

14 

RETURN 

OCB  DEVD=DA,MACRF=PN, DSORG  = PS»RECFf1=FB»LRECLz80, DONAME =F T 09F 00 1 
END 
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Appendix  B 

STEADY  STATE  MODEL  OK  THE  SOLAK  ATMOSPHERE 

We  have  constructed  a steady  state  numerical  model  of  the  solar 
atmosphere.  The  model  was  developed  to  investigate  the  effects  of  upward 
velocities  and  diverging  magnetic  field  patterns  on  the  temperature  and 
density  structure  of  the  solar  atmosphere;  however,  for  this  work  the 
model  is  used  only  to  provide  reasonable  temperature  and  density  profiles 
for  the  estimation  of  the  effect  of  reverse  current  heating  on  the  atmo- 
sphere. The  computer  program  calculates  the  run  of  temperature  and 
density  in  an  individual  flux  tube. 

The  equations  governing  the  behavior  of  an  inviscid  compressible 
fluid  in  the  presence  of  gravity  are 


dp 

ST 

+ V • (ou)  0 , 

(B.l) 

d 

(B.2) 

ST 

(ou)  + 

V • (puu)  - VP  + pg  , 

oe) 

+ V • 

— * — * — « 

(peu)  - V • q - PV  • u - £ \ 

S , (B.j) 

where  e is  the  total  internal  energy  per  unit  mass,  q is  the  heat 
flux,  g is  the  gravitational  acceleration,  £ is  the  energy  lost  via 
radiation,  and  S is  the  sum  of  all  other  non-thermal  energy  sources  or 
sinks.  For  flow  along  a magnetic  flux  tube,  considering  variation  only 
along  the  field  lines  and  assuming  the  radius  of  curvature  of  the  field 
lines  to  be  large  compared  to  the  dimensions  of  the  flux  tube,  we  see 
that  the  equations  become  one-dimensional.  If  we  add  the  definition  of 
the  heat  flux  and  an  equation  of  state  to  Equations  (B.l)-(B. j),  we  may 
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llntil  t omporn  t uro,  s measures  iltstmu'i'  nloii)i  tin1  tins  tilin'  Mint  the 
sutiso  r t |it  s itonoti's  tin-  i'oiii|iom'Ht  ol  n vector  alonp.  t ho  flux  tilin'.  \to 
linvo  non  li'i't  oil  t rii  im  port  ol  energy  mul  monu'iitnm  m'l'oss  Iti'lil  linos  t n 
wrlttnp  111111111011'.  y H . i ^ ^1'.  tie  wish  to  apply  I>| tint  tons  ^ It.  i ) It.}') 

lo  l In'  solar  a tmosphoro . for  tilts  ease  mi'  shall  assume  tin'  plasma  to 
In'  piiro  livil roll'll  oxi'opt  tor  t'onipiit  tun  tin1  rinltaltvo  losses.  To  necount 
lor  railtattvi’  losses,  no  Inivo  assumed  that  tt  ts  reasonable  to  trout  t ho 
solar  a tmosphoro  ns  optti'iillv  thin  ywo  iltsouss  this  nssnmpt  ton  Inter). 

Ho  linvo  ailoptoil  t ho  rniltnttvo  loss  funottoii  oaloulntoil  by  Itnyimnnl  i't  at. 
(I'l  l ) as  moiltftoil  by  Knymotul  ^1')j  ) to  tnolmto  rniltnttvo  losses  from 
\r  ami  tioiitrnl  hyilropon  oxoltatton,  blit  oxoliultnn  rniltnttvo  losses  iluo 
to  forbtiltlon  l tin's  for  temperatures  below  T It'1  K . tie  have  useit  the 
values  of  u mul  K ilertvi'it  by  Moore  anil  Kunu  ^1'*'.’)  for  a pure  hydro 
(ten  plasma.  tilth  (Itoso  anil  the  ei|Uatton  of  state,  we  may  eliminate  t In’ 

•>1 


pressure.  We  choose  as  our  dependent  variables  q , T , u and  n , 

s ' s 9 

the  number  density  of  hydrogen  nuclei  and  rewrite  (b.U)-(B,7)  in  a form 


more  convenient  for  numerical  solution: 


(B-9) 


dn  / "'ll  2 \ i V ciA  _ dT  (It-x)nk  nkT  dX  | 

ds  y( l+x)^T  s J | A ds  ds  m^  m(i  dT  "^s  | ’ 


dxl  | 

— I -ncr  x 


‘s  „ „ j , dT  f,  , x \ dX*] 

r = " £ + s - 2 V'k  [^1+x)  + (ffJ 


(B.l 0) 


/ . dn  1 dA 

+ (l+X)kT4  q — — , 

v ' s ds  s A ds  ’ 


nu  A constant 
s 


(11.11) 
( B. 12) 


where  m is  the  mass  of  a hydrogen  atom,  X is  the  fraction  of  hydrogen 
nuclei  that  are  ionized,  and  T is  t ho  hydrogen  ionization  energy 
expressed  as  a temperature,  — 1.0'  x 10  K.  Equation  (b.12)  is  the  inte- 
gral of  Equation  (ll.'t),  we  need  only  solve  three  first  order  ordinary 
differential  equations  to  calculate  the  run  of  temperature  and  density 
in  a flux  tube. 

We  have  written  an  assembly-language  subroutine,  to  execute  on  IBM 

jt'O  or  J70  scries  computers,  to  evaluate  the  quantities  — , — and 
dqs  dA 

-7—  , given  A , — — , g , S , n , T and  q . This  subroutine  may 

ds  dss  s 

be  used  with  a standard  library  ordinary  differential  solver,  or  as  we 

have  done  with  one  coded  specially  for  this  problem.  The  quantities 

K , X . — , £ , A , g , — , and  S are  tabulated  as  a function  of  T 
' ’ dt  s ds 


I 


ami  s , umi  the  values  for  a particular  T or  s are  computed  by  a 
cubic  Interpolation  scheme  similar  to  the  one  described  In  Appendix  A. 

The  subroutine  we  have  written  to  solve  the  coupled  set  of  ordinary 
differential  equations  (B.  i>)  -(ll.  1;' ) uses  an  Adams-Bashforth-Moulton 
fourth  order  linear  multistep  integration  sclieme  (see  Isaacson  and  Keller 
I'Ve)  with  a fourth  order  Kunge-Kutta  scheme  (with  a smaller  step  size) 
to  "sturt  up"  the  linear  multistep  method  and  provide  intermediate  values 
when  halving  t he  step  size.  The  routine  returns  the  values  of  T , u , 

U and  n at  intervals  from  the  starting  point  specified  by  the  calling 
program  and  reduces  the  step  size  or  Increases  it  according  to  t he 
requested  accuracy.  The  pretabulated  quantities  are  read  in  by  the  -a t n 
program  which  also  reads  in  starting  values,  calls  the  differential 
equation  solver  and  writes  out  the  results  of  the  integration. 

The  downward  heat  flux  in  the  corona  above  an  active  region  is 

~ * 10  (Noyes  1>>  ’1) . Since  the  thermal  conductivity  of  the  solar  plasma 

* \ 

is  a strong  function  of  temperature  (t,:  T fc)  , this  heat  flux  must  be 
largely  radiated  away  above  the  low  chromosphere.  We  have  the  choice  of 
starting  with  our  initial  values  where  the  heat  flux  is  large  (in  the 
corona)  and  calculating  the  solutions  to  a region  where  the  heat  flux  is 
small  (the  chromosphere),  or  proceeding  in  the  reverse  direction  from 
the  region  where  the  heat  flux  is  small.  it  is  well  known  that  the 
latter  choice  is  preferable  numerically  (Acton  1 O’o,  Isaacson  and  Keller 
lii  ).  This  is  basically  because  the  numerical  calculation  proceeding 
from  the  region  of  large  heat  flux  to  the  region  of  small  heat  flux  is 
not  a "well  posed"  problem  (Isaacson  and  Keller  l-Vr)  since  a small 


I 

I 


relative  change  in  the  Initial  value  of  the  heat  flux  can  cause  a large 


relative  change  in  the  final  value.  We  therefore  shall  choose  our 
starting  point  near  the  temperature  minimum. 

There  are  three  major  difficulties  with  starting  the  calculation 

4 

below  j K 10  K,  The  first  is  that  the  atmosphere  becomes  optically  thick 
and  therefore  the  radiative  losses  cannot  be  calculated  simply.  Second, 
the  radiative  loss  function  calculated  by  Raymond  is  not  tabulated  below 

4 

10  K.  Third,  the  approximation  that  the  atmosphere  is  purely  hydrogen 
breaks  down  as  the  fraction  of  ionized  hydrogen  becomes  very  small 
because  the  electron  density  (which  appears  in  the  expression  for  the 
radiative  losses)  is  grossly  underestimated  by  (A. 4),  since  the  major 
contribution  to  the  electron  density  is  from  trace  elements  with  low 
ionization  potentials  (e.g.  Na).  However,  for  the  purposes  of  this  work, 
we  only  need  a model  that  represents  the  overall  structure  of  the  ntmo- 
sphere  reasonably  well.  This  is  particularly  true  since  (cf.  Chapter  j) 
the  calculation  of  the  heating  of  the  cool  dense  portions  of  the  atmo- 
sphere by  the  reverse  current  is  not  accurate  after  the  first  few'  tenths 
of  a second  due  to  the  neglect  of  Coulomb  collisions.  We  do  not  attempt 
a solution  of  the  radiative  transfer  problem.  W'e  use  a power  law  extra- 
polation of  Raymond's  (19ft  ) radiative  loss  coefficient.  W'e  also  use 
Equation  (A. 4)  to  find  the  electron  density.  The  fact  that  the  atmosphere 
is  not  optically  thin  is  compensated  for  by  the  underestimate  of  the 
electron  density.  W'e  have  extrapolated  Raymond's  (19’fl')  radiative  loss 
function  with  a power  law  above  and  below  the  tabulated  range 

4 8 8 

( T -10  -T  10'  K) . For  the  high  temperatures  above  T 1 0l  K , this  should  be 
a reasonable  approximation  since  the  losses  for  these  temperatures  are 
almost  completely  due  to  thermal  bremsstrnhlung  and  therefore  should  vary 

94 


1 


as  «*»  T ; however,  these  temperatures  are  not  of  importance  in  the 
present  calculation.  The  power  law  extrapolation  below  10  K is  purely 
ad  hoc,  but  the  range  over  which  extrapolated  values  are  used  is  small 
(~  a factor  of  2)  and  the  calculation  of  radiative  losses  for  these 
temperatures  is  at  best  approximate  in  any  event.  The  resulting  tempera- 
ture and  density  profiles  resemble  the  solar  atmosphere  in  overall 
structure.  Since  the  atmosphere  varies  from  active  region  to  active 
region,  this  should  provide  an  adequate  representation  for  the  purposes 
of  the  calculations  of  Chapter  j. 

To  produce  the  model  used  (see  Chapter  j),  we  integrate  up  from 
near  the  temperature  minimum  (T=4-200K,  n=l.l02‘>  X 10^"°).  The  heat  flux 
and  velocity  are  taken  to  be  zero  at  this  point.  No  non-thermal  energy 
input  was  included  in  the  calculation.  The  resulting  temperature,  den- 
sity and  heat  flux  at  the  top  of  the  model  (corresponding  to  the  injection 
point  for  the  beam  in  Chapter  j)  were  T=3  X 10l  , n=l  X 10^  cm"^  and 
F=C>. jO  X 10  erg  cm  ‘ s , in  reasonable  agreement  with  the  values  given 
by  Noyes  (1971)- 

Listings  of  two  main  programs  and  several  subroutines  are  provided 
for  the  sake  of  completeness.  The  first  main  program  and  associated 
subroutines  produce  the  tables  that  are  required  for  the  cubic  interpola- 
tion. The  second  main  program  reads  in  starting  values  for  the  solution 
of  the  coupled  set  of  differential  equations  and  writes  out  the  results 
both  as  tables  suitable  for  people  to  look  at  and  (if  desired)  for 
machines  to  read.  The  subroutine  ABMINT  is  the  differential  equation 
solver  described  above.  The  present  version  is  in  FORTRAN  and  is  cer- 
tainly adequate  for  the  purpose  of  this  work.  An  adaptation  of  the 
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present  nmin  program  Co  solve  a boundary  value  problem  rather  than  an 


Initial  value  problem  would  (absent  t he  wealth  of  Croesus)  require  this 
routine  to  be  hand  coded.  The  assembly  language  subroutine  DIVF  calcu- 
lates the  quantities  needed  by  AliMINT  to  integrate  the  differential 
eq nations . 
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THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
iRuM  COPY  FURNISHED  TO  UDC  , 


TABULATION  ROUT INES 


IMPLICIT  REAL  * 8 (A-H.O-Z) 

REAL'S  G(S20) . DADS (820) . SOR( 820) , ONEK(820).CHI(820),DCHI(820), 

. A ( 820)  . LUM(820)  . T ST /Z 4410000000000000/ , 0T/Z4  3 1 0000000000000/, 

. SST/Z 471 0000000000000/.  DS/Z  -16  10000000000000/ 

COMMON  /PAR AM/  FRAC , AMP , SCALE 
P001  FORMAT (10A3) 

5001  FORMAT (D 1 3. 6) 

THIS  PROGRAM  CALCULATES  SEMI -LOGAR l T HMI C INTERPOLATION 
TABLES  FOR  A STEADY  SI  AIL  MODEL  OF  THE  PLASMA  IN  A MAGNETIC 
FLUX  TUBE  UNDER  THE  INFLUENCE  OF  GRAVITY.  FOUR  FUNCTIONS 
OF  TEMPERATURE  AND  FOUR  FUNCTIONS  OF  S (DISTANCE  ALONG  THE 
FLUX  TUBE  FROM  THE  SUN'S  SURFACE)  ARE  TABULATED.  THE 
FUNCTIONS  OF  TEMPERATURE  IT)  ARE  : 

THE  INVERSE  OF  THE  THERMAL  CONDUCTIVITY  (ONEK) 

THE  RADIATIVE  LOSS  COEFFICIENT  (LUM) 

THE  IONIZATION  FRACTION  (CHI) 

THE  DERIVATIVE  OF  THE  IONIZATION  FRACTION  (DCHI) 

THE  FUNCTIONS  OF  S ARE  : 

THE  FORCE  OF  GRAVITY  ALONG  THE  TUBE  (G) 

THE  AREA  OF  THE  TUBE  (A) 

THE  LOGARITHMIC  DERIVATIVE  OF  THE  AREA  (DADS) 

THE  NON  THERMAL  ENERGY  INPUT  (SOR) 

THE  TABULATION  RANGE  IN  TEMPERATURE  IS  4.096E3  - 6.71E7  (K). 

THE  TABULATION  RANGE  IN  S IS  1.677E7  - 2.75EI1  (CM) 

THE  TABLES  ARE  WRITTEN  OUT  TO  FORTRAN  LOGICAL  UNIT  9 AND  THE 
PROGRAM  READS  IN  6-11  VALUES  OF  1EMPERATURE  AND  RADIATIVE 
LOSS  COFFICIENT  (RAYMOND.  PRIVATE  COMMON  I CAT  I ON ) USED  TO 
TABULATE  THE  RADIATIVE  LOSS  COFFICIENT. 

THE  FROGRAM  At  SO  READS  IN  SEVERAL  PARAMETERS  THAT  CHARACTERIZE 
THE  FLUX  TUBE  AND  THE  NUN-THERMAL  ENERGY  INPUT: 

FRAC:  THE  AREA  OF  THE  FLUX  TUBE  IS  ( ( D 'S ) /D ) WHERE 

D IS  ERAC  TIMES  A SOLAR  RADIUS. 

AMP:  THE  INTEGRAL  OF  THE  NON-THERMAL  ENERGY  DEPOSITED  IN 

A FLUX  TUBE  OF  CONSTANT  ARF A IS  AMP  (ERG  PER  CM"2  PER  SEC). 

SCALE:  THE  FORM  OF  THE  NON-THERMAL  ENERGY  INPUT  IS 

(cost  (S'Pl  )/(2'SCALE)  ) )"2  FOR  S LESS  THAN  SCALE 
AND  ZERO  FOR  S GREATER  THAN  SCALE.  SCALE  IS  INPUT 
IN  SOLAR  RADII  (INPUT  OF  1.  MEANS  SCALE  IS  ABOUT  7.E10  CM). 


INITIALIZE  TABLES: 

DO  1 1=1.820 
G ( I ) = 0 . 0 0 
D A D S ( I ) =0. no 
SOR(I ) = 0 . D 0 
A( I ) = 1 . DO 
ONEK ( I )=0.P0 
CHI (I )=0. DO 
DCHI t I )-0.00 
1 LUM(I)=O.DO 
C 

C READ  IN  PARAMETERS 
C 

READ* 5. 5001 )FRAC 
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THIS  PAGE  IS  BEST  QUALITY  PRACTICAL 

KKOM  copy  furnished  to  cue  


READ(5. 5001 )AMP 
READ( 5. 5001 1SCAIE 


CALCULATE  FUNCTIONS  OF  TEMPERATURE: 


DO  20  1=1.3 
T =TST-DT 
K = < I — 1 J *256*  1 
DO  10  J=1  .2-13 
CHI (K)=F  CHI  (T  ) 

0CHI (K)=FDCHI (T) 

0NEK (K ) =FKAP ( T ) 

LUM( K ) =FLUM( T ) 

T =T ♦ 0 T 

10  K =K+  1 

TST  = 16.  D0MST 
20  DT=16.D0»DT 

T=TST-DT 
DO  30  K-769.S20 
CHI (K)=FCHI  (T  ) 

DCHI ( K 1 = F D C H I (T) 
CNE<(K)=FKAP(T) 
LUM(K)=FLUM( T ) 

30  T = T + D T 

CALCULATE  FUNCTIONS  OF  S: 

DO  50  1=1.3 
S-SST-OS 
K = ( I-  1 ) »256H 
DO  JO  J= 1 . 2 4 3 
G(K)=FG(S) 
A(K)=FA(S) 

DADStK ) =FDADS(S) 
SOR(K)=FSOR(S) 

S -S  + DS 

JO  K=K+1 

SST-16. PO^SST 
50  DS= 1 6 . DC  * DS 

S=SST-PS 
DO  60  K-769. 820 
G(K)=FG(S) 

A(K)=FA(S) 

DAPS(K)=FDAPS(S) 

SCR ( K ) = F SOR ( S ) 

60  S=S+PS 


WRITE  OUT  TABLES-’ 

URITE(9.9001)G 
WRITE  C 9 . 900  1 ) DADS 
WRITE (9. 9001 )S0R 
UR  I TE ( 9 . 900 1 ) A 
WRITE (9.9001  ) ON  E K 
WR I T E ( 9 . 900  1 ) LUM 
WRITE (9. 9001) CHI 
UR  I TE ( 9 . 900 1 ) DCH I 
STOP 
END 

REAL  FUNCTION  FCHI *8CT) 

C 

C THIS  FUNCTION  CALCULATES  THE  IONIZATION  FRACTION  AS  A FUNCTION 

C OF  THE  TEMPERATURE  (T).  THE  IONIZATION  FRACTION  (FCHI)  IS 

C DEFINED  AS  NE/(NH*NP)  WHERE  NE  IS  THE  NUMBER  DENSITY  OF 

C ELECTRONS.  AND  NH  AND  NP  ARE  THE  NUMBER  DENSITIES  OF  HYDROGEN 

C ATOMS  AND  PROTONS  RESPECTIVELY.  SEE  MOORE  AND  FUNG.  SOLAR 

C PHYSICS  23  (1972). 78-102  FOR  FORMULAE. 

C 

IMPLICIT  REAL*#  CA-H.O-Z) 
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mM  mpi  r\xaasm)  ro  ddc  - 


DATA  ONE3/ZC055555555555555/ 

COMMON  eETA.EBLTA.Bl3.Unr  t,  TCMP2,  TCHI  , P 

BETA; 1 . 58P5/T 

EBETA'DEXP(BETA) 

8 1 i-SET  A*  *ONE  3 

TEMPI -0. 42 8300*0. 5D0*DL0G(BETA)+ . 469800»B1 3 
TEMP2=2 . 220-6 ‘BETA ‘TEMPI *EBET A 
TCHI  : 1 . DO/  ( 1 . DO+TEMP2) 

FCHI =TCHI 

return 

END 

REAL  rUNCTION  FDCHI »8CT ) 

THIS  FUNCTION  CALCULATES  THE  DERIVATIVE  OF  THE  IONIZATION  FRACTION 
CD  OHI  / DT)  AS  A FUNCTION  OF  TEMPERATURE  (T).  SEE  FUNCTION  FCHI. 

IMPLICIT  REAL  *3  (A-H.O-Z) 

COMMON  BE  T A . E9: T A . B 1 3. T EMP 1 , TE MPC .TCHI . D 

FOCMI  - 1 . 4060-  1 1 • TCHI  'TCHI  * BE  T A * BE  T A « E BE  T A * ( ( 1 . DO+BET  A > *T  EMP  1 
. ♦ ( . 500-  . 1 566D0  *B 1 3) ) 

RETURN 

END 

REAL  FUNCTION  EKAP*8(T) 

THIS  FUNCTION  CALCULATES  THE  INVERSE  OF  THE  TOTAL  THERMAL 
CONDUCTIVITY  AS  A FUNCTION  OF  TEMPERATURE . THE  DEPENDENCE  OF  THE 
CONDUCTIVITY  ON  THE  "COULOMB  LOGARITHM"  IS  APPROXIMATED  IN  A 
MANNER  SIMILAR  TC  MOURE  AND  FUNG.  SOLAR  PHYSICS  23  (1972),  78-102. 

IMPL ICI T REAL  *8  CA  H.O-Z) 

CU'-”.'N  BETA  . EBET  A . B 1 3.  T EMP  1 . TE  MPC.  TCHI,  D 

REAL  *8  PO  9. DU  .Cl  -o.no  . CK1/0. DO/. RKAY/1 . 380620-16/. 

..-TROT,  1 6’35.'D-24/.  ESU  -1 . 80325D  - TO/.  PI/Z41324 3F 6A8S85A30/ 
IF(P0.NE.0.D0)G0TO  10 
P0= 1 . D5* 1 . P 10* ( 2 . DO*RKAY  ) 

C L - ( 3 00*RKAY  • 'D/CDSiJRT  (2.  DO*PI  * PO  ) U.  SU  **  3 ) 

CK  1 : ( 9 . 00‘RKAY *DSQRT  CRN AY ) ).'  ( 4 . DO*DSQRT (MPROT ) ) 

CL  AM:  ( t * T *CL  ) *DS.;RT  ( ( 1 . DO+T  CHI  )/  ( 2 . Dll*  T CHI  ) ) 

T 12=0SQRT(T  ) 

IF  CT  . GT  . -T.  20  5 ) CL  AM:CL  AM  *6 . 480741D2/T  12 
TEMPK: (CK 1 ‘ T )/(9.  120  - 14f  \ 950-1  1/ (TEMPCM 12) ) 

FKAP:  1 . DO/(TEMFK+(  1 . 890- 5*1  * T *T 1 2 ) /DLOG ( CL AM) ) 

RETURN 

END 

REAL  FUNCTION  FLUM*8(T) 

THIS  FUNCTION  CALCULATES  THE  RADIATIVE  LOSS  COEFFICIENT 
SUCH  THAT  THE  RADIATIVE  LOSSES  FROM  AN  OPTICALLY  THIN 
PLASMA  OF  SOLAR  ABUN D ANCE SAR E FLUM*(NE**2)  WHERE  NE  IS 
THE  ELECTRON  NUMBER  DENSITY.  THE  CALCULATION  OF  THE 
RADIATIVE  LOSS  COEFFICIENT  IS  RAYMOND'S  (PRIVATE  COMM.) 

IMPROVEMENT  OF  THE  CALCULATIONS  OF  RAYMOND.  COX  AND  SMITH 
AP.  J.  204  (1916).  290-292. 

IMPLICIT  REAL*S  (A-H.O-Z) 

REAL  * 8 T.L.TD(641).LD(641).LOGT.ERR.FINT(10).X0IF(10).WRK(10) 

REAL  *4  RTD(G41).RLP(641) 

LOGICAL  SORT/. FALSE. /.EXTRAP/. FALSE. /.FIRST /.TRUE./ 

EQUIVALENCE  ( T D ( 32 1 ) . R T D ( 1 ) ) . ( L D ( 32 1 ) . RL D ( 1 ) ) 

FORMAT ( 2 0 A 4 1 
IF  (FIRST) GO  TO  100 
L0GT=DL0G1l>'*) 

IF  ILOGT . L T . T 0 ( 1 ) )GOTO  200 
IF  (LCGT  . GT  . TtHNRAPPT  ) ) GOTO  300 
ERR:- 1 . DO 

CALL  AITKEN(L.LOGT.  1 0 . E RR . T P . L D . NRADPT . SORT . EXTR AP . F I NT . XD I F . 14RK . 

. CT0.C400.C400) 

FLUM: 10. DO* * L 
RETURN 
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1 00  NRADPT=&A1 
C 

C CALCULATING  LEAST  SQUARE  FITS  FOR  POWER  LAU  EXTENSION 

C OF  CALCULATED  RADIATIVE  LOSS  COEFFICIENT  BEYOND  TABULATED 

C RANGE.  ONLY  DO  ON  FIRST  CALL. 

C 

READ ( 8 . 800  I ) R T D 
READ ( 8 . 800  1 )RL0 
DO  15  I - 1 . NR ADPT 
T 0 < I ) -DSL  E ( RT  D t I ) ) 

15  LDU  ) = D3LE  (RLDI  I ) ) 

A 1 =0 . 00 
B1 -0. DO 
TEMPI -0. DO 
TEMP2=0. DO 
DO  20  1=2.10 
A 1 =A  1 + LO ( I ) 

8 1 =B 1 *TD ( I ) 

TEMP1=TEMP1+TD( 1) »TD(  I) 

20  TEMP2  = TEMP2  + T0( I ) * L P C I ) 

B1=(TEMP2-T0(1>,A1-LD(1)’(B1~9.D0*TD(1)))/ 
.(TFMD1-2.00‘TD(1)‘31  + 9.00’TD(1)’,TD(1)) 

A 1 =LD ( 1 ) -B  1 *TD ( 1 ) 

A2=0. DO 
B2=0. DO 
T EMP 1 = 0 . DO 
TEMP2  = 0.  DO 
DO  30  1=636.6-10 
A2=A2U0(  I ) 
b2  = b:  + td(  i ) 

TEMP1=TEMP1+T0(I)*TD(I) 

30  T EMP2  = T EMP2  + T D ( I ) * L 0 C I ) 

B2  = (TEMP2-TD(6-n  ) M2-LDC  641)  *(62-5.  D0*TD(6-11 ) ) )/ 

. (TEMP  1-2 . DC  * T D C 64 1 ) 'B2+5. DO*  T D C 64 1 ) ) 

A2  = LD(6T1  )-BZ*TD(6-11  ) 

EIRST=. FALSE. 

GOTO  110 

200  FLUM=10.D0“(A1  + B1*L0GT) 

RETURN 

300  FLUM= 1 0. 00**( A2+B2H0GT  ) 

RETURN 

•100  '..’RITE  (6. 6001  ) 

6001  FORMATMH  ,'OOPS  - WE  SHOULD  NOT  BE  HERE1) 

STOP 

END 

REAL  FUNCTION  FG*S(S> 

C 

C THIS  FUNCTION  CALCULATES  THE  FORCE  OF  GRAVITY  ALONG  THE 

C FLUX  TUBE  AS  A FUNCTION  OF  S.  THE  DISTANCE  ABOVE  THE 

C SOLAR  SURFACE. 

C 

IMPLICIT  REAL’S  (A-H.O-Z) 

REAL  *8  RSUN/6. 9599010/. G/6. 67D- 8/, MSUN/1 . 989D33/ 

LOGICAL  NOT 1ST/. FALSE . / 

I F (NOT  1ST ) GOTO  10 
GM=MSUN  * G 
NOT  1 ST  = . TRUE  . 

10  R = ( RSUN  + S ) 

FG=GM/(R”2) 

RETURN 

END 

REAL  FUNCTION  FA’S(S) 

C 

C THIS  FUNCTION  CALCULATES  THE  AREA  OF  THE  FLUX  TUBE 

C AS  A FUNCTION  OF  S.  THE  DISTANCE  ABOVE  THE  SURFACE  OF 

C THE  SUN. 

C 

IMPLICIT  REAL’S  (A-H.O-Z) 

COMMON  BETA, E BETA. B1 3. TEMPI , TEMPC.TCHI . D 


. 
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REAL*8  RSUN/6. 9599D10/.A0/1 . DO/ 
LOGICAL  NOT 1ST/. FALSE  . / 

COMMON  /PARAM/  F R AC . AMP , SCAL E 

I F (NOT  1ST  ) GOTO  10 

D^FRACRSUN 

R -S+  D 

AR=R**2 

AR -A0/AR 

F A-AR  * ( R * * 2 ) 

NOT  1 ST  = . TRUE . 

RETURN 
R = D+S 

FA=ARMR**2) 

RETURN 

END 

REAL  FUNCTION  FPADS»8(S) 


THIS  FUNCTION  CALCULATES  THE  LOGARITHMIC  DERIVATIVE 
OF  THE  AREA  AS  A FUNCITON  OF  S,  THE  DISTANCE  ABOVE  THE 
SURFACE  OF  THE  SUN. 

IMPLICIT  REAL'S  (A-H.O-Z) 

COMMON  BETA. E BETA, B1 3, TEMPI , TEMPC. TCHI , D 
F PAPS-2 . DO/ID  + S) 

RETURN 
END 

REAL  FUNCTION  FS0R*8(S) 

I C 

C THIS  FUNCTION  CALCULATES  THE  (AD  HOC)  NON-THERMAL 

C ENERGY  INPUT  INTO  THE  SOLAR  PLASMA  AS  A FUNCTION  OF  S, 

C THE  DISTANCE  ABOVE  THE  SUN'S  SURFACE. 

C 

IMPLICIT  REAL'S  (A-H.O-Z) 

REALMS  RSUN/6. 9599D10/. 

.PIBY2/Z-41  1 92  1 F B54-142D  1 8/ 

LOGICAL  NOT  1 ST / . FALSE ./ 

COMMON  /PARAM/  F RAC . AMP , SCALE 
I F (NOT  1ST ) GOTO  10 
SCALE  =SCAL  E 'RSUN 
ARG-  1 . DU/SCALE 
AMP=AMF  * ARG 
AMP-AMP+AMP 
ARG-ARG  'PI BY2 

so=s 

NO  T 1 ST  = . TRUE . 

10  SR -S- SO 

IF(SR.GT.SCALE)GOTO  20 
C = DCOS ( AR G ' SR  ) 

F SOR  = AMP*C  ' C 
RETURN 

20  F SOR  = 0 . DO 
RETURN 
END 

SUBROUTINE  AITKEN(F,X,M, ERR. XTAB.FTAB.N, SORT , EXTRAP, FINT . 

. XDIF.WRK,*,*.  *) 

C 

C SUBROUTINE  AITKEN  INTERPOLATES  TO  FIND  THE  VALUE  OF  THE  FUNCTION 

C (F)  AT  THE  POINT  X.  IF  THE  ROUTINE  POES  NOT  ACHIEVE  THE  DESIRED 

C RELATIVE  ERROR  (ERR)  USING  M POINTS  OR  IF  ROUND  OFF  ERROR  APPEARS 

C TO  BE  PRESENT.  THE  ROUTINE  RETURNS  THE  CURRENT  ERROR  ESTIMATE  IN 

C ERR.  RETURNING  TO  THE  MAIN  PROGRAM  AT  THE  FIRST  STATEMENT  NUMBER 

C IN  THE  ARGUMENT  LIST.  THE  ROUTINE  RFQUIRES  THE  TABULATED  VALUES 

C IN  FTAB  TO  BE  IN  ORDER  OF  INCREASING  VALUE  OF  X (IN  XTAD).  IF 

C SORT  IS  TRUE  ON  ENTRY.  BOTH  TABLES  ARE  SORTED  (SEE  NOTE).  IF  THE 

C VALUE  OF  x IS  OUTSIDE  THE  RANGE  OF  THE  TABLES  SUPPLIED,  THE 

C ROUTINE  RETURNS  TO  THE  SECOND  STATEMENT  NUMBER  IN  THE  ARGUMENT 

C LIST  - UNLESS  EXTRAP  IS  TRUE.  IF  THE  ROUTINE  DISCOVERS  TI40 

C IDENTICAL  VALUES  OF  X IN  XT AB , THE  ROUTINE  RETURNS  TO  THE  THIRD 

C STATEMENT  NUMBER  IN  THE  ARGUMENT  LIST. 
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II  M IS  GRIA1IR  MAN  N PR  MSS  I MAN  ?.  II  IS  SI  I 10  10 

ir  i sr  is  uss  than  i i> ♦ * 5.  n is  su  to  !<>♦♦*>. 

ARCUMENIS  ( 0 1 HI  R 1 MAN  SI  Alt  MINI  NUMPIRS): 

F INTER  I'Ol  AltO  VAUH  01  I UNCI  ION  Al  X (RIAl  - OUT  PUT) 

X VAlUl  01  INPtPENI  VAR  1 A Ml  t (RlAl  INPUT) 

M IARC.IS1  NO  MO  I R 01  0 A 1 A POINIS  TO  01  US1  0 (INIIGtR  INPUT) 

ERR  REQUEST  ID  REIAT1VI  t RROR  IRtAl  INPUT ) 

XT  AO  1A0LE  Of  X VAl  Ut S AT  UMICH  MX)  IS  TAOUIATED 
(REAL  ARRAY  INPUT ) 

MAD  TAPI  E 01  MX)  Al  T MI  CORK  I SPONO 1 NG  POINIS  IN  XIAO 
(REAL  ARRAY  INPUT) 

N I Ml  LENGTH  OF  1 API  E S XIAO  AND  MAO  (INTEGER  INPU1) 

SOR I DETERMINES  U II E I MIR  OR  N01  1 III  INltRNAl  SORING  ROUIINE 
IS  10  01  USED  UOGICAl  l NPUT /OU  I PU  I ) 

EXTRAP  l'  E 1 ERMINES  WHET  HI R OR  NOI  t X I R APOl  A T I ON  OUT  l SDE  T HE 
RANG!  01  I Ml  1 ADI  IS  IS  Al LOME  0 U OG I CAl  1NPUI) 

I INI  ARRAY  01  SUCt  SSI  VI  1NITRP0IAN1S  WORKING  ARRAY 
(RIAL  ARRAY  DIMENSION  > OR  M) 

XD1F  ARRAY  OF  HI  KIRI  NOES  Oil  WIEN  THE  POINTS  Al  WHICH  MX) 

IS  lADUlAllD  AMO  \ WORKING  ARRAY  IRIAL  ARRAY 
DIMENSION  > OR  M' 

URK  WORKING  ARRAY  I OR  CURRINI  LEVI  l OF  l N 1 l RI'Ol  Al  1 ON 
IRE  A l ARRAY  DIMENSION  > OR  Ml 

INltRNAl  VARlAOttS 

TEMP  1 1 MI’ORAR Y STARAGt  I OCA!  ION  t OR  INllRMtDlAlt  RISUIIS 

lOIlIT  PRtVIOOS  A 0 S 0 1 l 1 1 t RtlAlIVI  DIFriRINCI  Oil  111  t N 

I K I t R POl  AN  I S COMPARID  Will!  IDIIIC  10  CHICK  I OR 
CONVIRGtNCI  (ROUND  Oil  t RROR  INDICATOR) 

I DU  FT  PR  I St  N I AOSO  ELITE  RtlAlIVI  PHI  I RENO!  Ot  lilt  IN 

I Nit  RI'Ol  AN!  S list  0 10  CHICK  I i'R  CONVIRGtNCI  A! 
CURRINI  It  VI  I (AISO  Sit  IDlltl  ADOVI) 

Dll  I MAX  IARGIS1  Rt  PRt  St  N 1 A 01  l I10A1ING  PO  1 N I NUMOt  R ( 1 OM  <Pl" 

IUP  USt  0 AS  POINTIR  IN  SOR 1 AND  l N 1 t R POl A 1 1 ON 

I MID  US!  0 AS  POINl I R IN  SOR  I 

ION  USED  AS  POINl  I R IN  S0R1  AND  I N I t RI'Ol  A I 1 ON 

XUPPU  DIlltRINCI  01  1 WE  IN  X AND  Cl  0 S t ST  UNUSt  0 IARGER  VAl  Ut 
IN  XIAO 

XDNDII  DIlltRINCI  Ot  1 lit  I N X AND  Cl  USES!  UNUSt  D SMAl  t I R VAl  Ut 
IN  XIAO 

ItVtl  CURRINI  ItVIt  01  AUXIN  IRIANGUtAR  SCMt  Ml 
ISHP  COUNT  t R I OR  INllRMtDlAlt  INI  t R PO  l AN  1 l OOP 
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PONE  LOGICAL  FLAG  TO  INDICATE  CURRENT  LEVEL  OF  SHELL  SORT 
IS  COMPLETE 

IDISP  CURRENT  EXCHANGE  INTERVAL  IN  SHELL  SORT 
I L AST  N MINUS  IPISP  - UPPER  LIMIT  FOR  SORT  DO  LOOP 
I COUNTER  IN  SORT  PO  LOOP 
REMARKS : 

THE  ROUTINE  AS  PRESENTLY  WRITTEN  WILL  NOT  WORK  IN  WATFIV.  TO 
MAKE  THE  ROUTINE  COMPATABLE  WITH  WATFIV.  THREE  CHANGES  MUST  BE 
MADE.  FIRST.  THE  ARRAYS  FINT,  XP1F  AND  WRK  SHOULD  HAVE 
DIMENSION  M AND  THE  ARRAYS  X T AD  AND  FTAB  SHOULD  HAVE  THE 
DIMENSION  N.  SECOND.  THE  VARIABLES  M AND  N SHOULD  BE  REMOVED 
FROM  THE  INTEGER  DECLARAI ION  STATEMENT.  THIRD.  THE  STATEMENT 
WHICH  CHANGES  M TO  10  IF  CERTAIN  CONDITIONS  ARE  MET  SHOULD  BE 
DELETED. 

NOTE  : 

SORT  METHOD  USED  IS  SHELL  SORT  - THIS  METHOD  MAY  BE  VERY 
INEFFICIENT  WHEN  XTAB  IS  PARTIALLY  SORTED. 


DECLARE  VARIABLES 

REAL  F.X.ERR.XTAB(1).FTAB(1).riNT(1),XPIFC1) ,WRK( 1 ) , E PS . XUPD I F , 
. XDNP I F . F D I F F . F D I F F 2 . DF I MAX . T EMP 
INTEGER  M.N. ISTEP.  ILAST .LEVEL. IPISP. IUP. IDN. IMID. I 
LOGICAL  SORT . EX  TRAP. DONE 

INITIALIZE  VARIABLES 

DATA  EPS/Z3C 100000/. D I FMAX/Z7FFFFFFF/ 

CHECK  TO  SEE  IF  M > N OR  IF  M < 2.  IF  SO  SET  M TO  10 
(THIS  CARD  MUST  BE  REMOVED  FOR  WATFIV  EXECUTION  AND  THE 
WORKING  ARRATS  DIMENSIONED  TO  M) 

IFCM. LT . 2. OR ,M. GT . N)M=10 

CHECK  TO  SEE  IF  ERR  < 16**-5  IF  SO  SET  IT  TO  1G**-5 

IF(ERR.LT.EFS)ERR=EPS 

C CHECK  TO  SEE  IF  TABLES  ARE  TO  BE  SORTED  - IF  NOT  GO  AROUND  SORT 

C SECTION. 

C 

I F ( . NOT . SORT ) GOT 0 200 
C 

C ****  SORTING  SECTION  BEGIN 

C 

I P I SP  =N 

101  I0ISP-(IPISP+1)/2 
ILAST=N-IPISP 

102  DONE  = . TRUE  . 

DO  103  1=1. ILAST 

I F (XT  ABC  I ) . L T . XT  ABC  I* ID  ISP))  GO  TO  103 
IF (XT AD (I) . EQ.XTABC 1 + IDISP) 1RETURN  3 
T EMP  = XT  ABC  I ) 

XTABC I )=XTAB( I+IDISP) 

XTABC  IMPISP)=TEMP 
TEMP-FTAPC I ) 

F TABC I ) -FTABC I ♦ I DISP) 

FTA8(1MDISP)=TLMP 
PONE=. FALSE. 

103  CONTINUE 
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ir( .NOT . DONE )G0T0  102 
1F( 1DISP. GT . 1 ) GO  T 0 101 
C 

C *♦**  SORTING  SECTION  END 

C 

200  CONI  I NOE 

CHECK  TO  SEE  1 E X IS  WITHIN  RANGE  0E  TABLE  - IE  NOT  AND  IE  EXTRAP 
IS  EALSE  RETURN  TO  SECOND  STATEMENT  IN  ARGUMENT  LIST 

IE(X.GE.XTAB(1))G0T0  201 

X IS  BELOW  LOWEST  X VALUE  IN  XTAB  - EXIT  UNLESS  EXTRAP  IS  TRUE 
IE(.N0T.EXTRAP)RETURN  2 

EXTRAP  IS  TRUE  - SE1  UP  POINTERS  AND  GO  TO  AITKEN 
INTERPOLATION  SECTION 

IUP-2 
ION  1 
GOTO  -100 

201  CONTINUE 

CHECK  TO  SEE  IE  X IS  LARGER  THAN  LARGEST  X VALUE  IN  XTAB  - IE  NOT 
BRANCH  TO  SEARCH  SECTION 

I E(X. IE. XTAB (NT) GOTO  300 

X IS  ABOVE  HIGHEST  X VALUE  IN  XTAB  - EXIT  UNLESS  EXTRAP  IS  TRUE 
IE  ( . NOT . EX1RAP1RETURN  2 

EXTRAP  IS  TRUE  - SET  UP  POINTERS  AND  GO  TO  AITKEN 
INTERPOLAT ION  SECT  ION 

1UP-N 
I DN-N- 1 
GOTO  -TOO 

SEARCH  SECTION  - E I HD  X1AB  VAIUES  THAT  BRACKET  X - USE  BISECTION 
300  CONTINUE 

SET  IIP  POINTERS  TOR  BISECTION 


ILIP-N 
1M10-N/2 
I DN  - 1 

CHECK  TO  SEE  WHICH  SIDE  OE  EXTAB(IMID)  X IS  ON  AND  UPDATE  IUP, 
I MI D AND  I DN  - WHEN  NEW  1MID  EQUALS  I DN  WE  ARE  DONE 

301  I E ( X . G T . X T A B ( 1 M I D 1 1 G 0 T 0 302 
X LE  XTAB(IMID)  SO  IUP<-IMID  £ I MI  D<  = ( I IIP*  I DN  ) /2 
IUP-IMID 

IMID=(IUP+IPN)/2 

IE  I MI  D > I DN  WE  AREN'T  DONE  YET  - GO  PACK  AND  CHECK  AGAIN 
OTHERWISE  GO  TO  AITKEN  INTERPOLATION  SECTION 

lEdMIP.GT.  IDN1GOTO  301 
GOTO  -TOO 

302  CONTINUE 
C 

C X > XTAB(IMID)  SO  IDN<-1MID  £ I MI D<  = ( I UP+I ON )/2 
C 
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I ON  - I MI P 

I MI  0 = < IUP+IDNI/2 
C 

C IF  I MI  0 > ION  WE  AREN'T  DONE  YET  - GO  PACK  AND  CHECK  AGAIN 

C OTHERWISE  ENTER  A1TKEN  INTERPOLATION  SECTION 

C 

IFUMID.GT.  I ON  ) GOTO  301 
C 

C END  or  SEARCH  SECTION 

C 

C AITKEN  INTERPOLATION  SECTION 

C 

•TOO  CONTINUE 
C 

C IUP  ANP  ION  POINT  TO  fIRST  TWO  FUNCTION  VALUES  USCO  IN 

C INTERPOLATION  - INITIALIZE  VARIABLES 

C 

F0IFF2-0IFMAX 
XDNDIF -XT  AB ( I UP) -X 
XUPDIF=XTAB( I ON  ) -X 
C 

C START  AITKEN  INTERPOLATION 

C 

DO  -101  IEVEL  = 1.M 
C 

C DECIDE  WHICH  OF  THE  TWO  TABLE  VALUES  POINTED  TO  BY  IUP  ANO  I ON 

C IS  TO  BE  USED  NEXT  - THE  ONE  WITH  XTAB  CLOSER  TO  X 

C 

IF (ABSCXUPDIF ) . GT . ABS(XPNDIF)  )GOTO  302 
C 

C WE  WILL  USE  IUP  - PUT  INFORMATION  IN  WORKING  ARRAYS 

C 

WRK ( l)-FTAB(IUP) 

XDI F (LEVEL ) =XUPD  I F 
C 

C CHECK  TO  SEE  IF  WE  JUST  USED  THE  LARGEST  VALUE  OF  X IN  XTAB 

C IF  SO  GO  TO  303  AND  DO  FIX  UP  - IF  NOT  UPDATE  IUP  ANO  XUPDIF 

C 

IF(IUP.GE.N)GOTO  303 
IUPMUP+  1 

XUPDIF=XTAB( I U P ) - X 
C 

C BRANCH  AROUND  CODE  TO  INTERPOLATION  LOOP  FOR  THIS  LEVEL 

C 

GOTO  303 
C 

C FIX  UP  FOR  USE  OF  LARGEST  X IS  TO  SET  XUPDIF  TO  LARGEST 

C REPRESENTABLE  FLOATING  POINT  NUMBER 

C 

303  XUPD I F -D I F MAX 
C 

C BRANCH  AROUND  COOE  TO  INTERPOLATION  LOOP  FOR  THIS  LEVEL 

C 

GOTO  303 
C 

C WE  WILL  USE  IDN  - PUT  INFORMATION  IN  WORKING  ARRAYS 

C 

302  WRK ( 1 ) =F  T AB ( I ON ) 

XDIF (LEVEL)=XPNDIF 
C 

C CHECK  TO  SEE  IF  WE  USED  THE  SMALLEST  VALUE  OF  X IN  X IN  XTAB 

C IF  SO  GO  TO  305  AND  DO  FIX  UP  - IF  NOT  UPDATE  IDN  ANt  XDNDIF 

C 

IFdPN.EQ.  I ) GO  T 0 305 
I DN - I ON  - 1 

XDNPIF=XTAB(IPN)-X 

C 

C BRANCH  AROUNO  CODE  TO  INTERPOLATION  LOOP  FOR  THIS  LEVEL 

C 
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GOTO  AOA 
C 

C FIX  UP  FOR  USE  OF  SMALLEST  X IS  TO  SET  XDNDIF  TO  LARGEST 

C REPRESENTABLE  FLOATING  POINT  NUMBER 

C 

AOS  XDN01F=DIFMAX 

C 

C SKIP  INTERPOLATION  CALCULATION  IF  LEVEL  IS  1 

C 

AOA  IFCLEVEL.LE. 1 ) GOTO  A06 

C 

C AITKEN  INTERPOLATION  LOOP 

C 

BO  AO 7 I ST E P-2. LEVEL 

TEMP  = X01 F (LEVEL )-XDI F( 1ST EP-  1 ) 

C 

C CHECK  TO  SEE  IF  HE  ARE  GOING  TO  DIVIDE  BY  0 IF  SO  RETURN 

C TO  THIRD  STATEMENT  NUMBER  IN  ARGUMENT  LIST 

C 

IFCTEMP.EQ.O. )RETURN  3 
C 

C CALCULATE  INTERMEDIATE  INTERPOLANTS 

C 

A07  WRK  ( ISTEP)  = (F  1NT  ( ISTEP-  1 ) *XO l F (LEVEL)  - 

1 WRK ( ISTEP-  1 )-*XDl  F ( ISTEP-  1)  )/TEMP 

C 

C ENTER  1NTERPOLANT  IN  FINT 

C 

A06  FINTLLEVEl  ) =tJRK  (LEVEL  ) 

C 

C SKIP  CHECK  FOR  CONVERGENCE  FOR  LEVEL  LESS  THAN  A 

C 

IFELEVEL.LT. ATGOTO  40 1 
C 

C CHECK  FOR  CONVERGENCE  AT  THIS  LEVEL  - IF  SO  BRANCH  OUT 

C 

FDIFF2  = 2. »ABS( (F INT< LEVEL  J-FINT (LEVEL  - 1 ) )/ 

1 (FINT (LEVEL  ) + F INT (LEVEL- 1 )) ) 

IF (FDIFF2. LT .ERR)  GOTO  AOS 
C 

C SKIP  ROUND  OFF  ERROR  CHECK  FOR  LEVEL  LESS  THAN  6 

C 

IF(LEVEL.LT.6)G0T0  A01 
C 

C IF  INTERPOLANTS  ARE  NOT  CONVERGING  - EXIT 

C 

IF (FPIFF2.GT.FI OFF DGOTO  501 
C 

C UFBATE  FDIFF1  AND  CONTINUE 

AO  1 FDIFF  1 =F 0 1 F F 2 
C 

C IF  INTERPOLATED  TO  LEVEL=M  WITHOUT  CONVERGENCENCE  - EXIT 

C 

GOTO  501 
C 

C SET  F EQUAL  TO  FINT(LEVEL)  AND  RETURN 
C 

AOS  F = FINT (LEVEL  ) 

RETURN 

C 

C TERMINATIONS  DUE  TO  LACK  OF  CONVERGENCE  OR  ROUND  OTF  ERROR 

C 

501  LEVELUEVEL-  1 
ERR-FIDFF 1 
F-FINT(LEVEL) 

RETURN  1 
END 


106 


BUS  MOT  IS  BEST  HOTLITY  FEACIICASU 
jHH>«  OOP*  FURNISHED  1\)  DDC 


STEADY  STATE  ATMOSPHERE  MODEL  MAIN  ROUTINE 


IMPLICIT  REAL*8  (A-H.O-Z) 

THIS  PROGRAM  CALCULATES  THE  RUN  OF  TEMPERATURE.  DENSITY 
HEAT  FLUX  AND  VELOCITY  IN  AN  INDIVIDUAL  FLUX  TUBE. 

THE  PROGRAM  REAPS  IN  PARAMETERS  THAT  CONTROL  THE  NUMBER  OF 

SETS  OF  TABLES  READ  IN  (NTAB)  . AND  THE  INDEPENDENT  VARIABLE 

THAT  CONTROLS  THE  FREQUENCY  OF  TABULATION  (ITEST).  FOR  EACH 

SET  OF  TABLES  THE  FROGRAM  READS  IN  THE  NUMBER  OF  DIFFERENT  INITIAL 

CONDITIONS  FOR  WHICH  THE  INTEGRATION  IS  TO  BE  PERFORMED  ( NRUN ) 

AND  A VARIABLE  THAT  CONTROLS  WHETHER  OR  NOT  THE  RESULTS  OF 
THE  INTEGRATION  ARE  ONLY  PRINTED  OUT  OR  BOTH  PRINTED  OUT 
AND  WRITTEN  OUT  IN  A FORMAT  SUITABLE  FOR  REREADING 
BY  ANOTHER  PROGRAM  (NOUT).  IF  NOUT  IS  LESS  THAN  1.  THEN  THE 
RESULTS  ARE  ONLY  PRINTED.  IF  NOUT  IS  GREATER  THAN  OR  EQUAL  TO 
1,  THEN  THE  RESULTS  OF  THE  INTEGRATION  ARE  BOTH  PRINTED  OUT  AND 
WRITTEN  OUT  TO  LOGICAL  UNIT  10. 

THE  FROGRAM  READS  IN  A TABULATED  FUNCTIONS  OF  DISTANCE  AND 
A TABULATED  FUNCTIONS  OF  TEMPERATURE: 


FUNCTIONS  OF  S: 


G THE  FORCE  OF  GRAVITY  ALONG  THE  TUBE 

PA  THE  LOGARITHMIC  DERIVATIVE  OF  THE  AREA  OF  THE  TUBE 
WITH  RESPECT  TO  DISTANCE  ALONG  THE  TUBE  (1/A  DA/DS) 

SO  A PHENOMENOLOGICAL  NON-THERMAL  HEAT  SOURCE 

A THE  AREA  OF  THE  FLUX  TUBE 

FUNCTIONS  OF  T = 

OK  INVERSE  OF  THE  THERMAL  CONDUCTIVITY 
LU  THE  RADIATIVE  LOSS  FUNCTION 

CH  THE  FRACTION  OF  HYDROGEN  NUCLEI  THAT  ARE  IONIZED 

DC  DERIVATIVE  OF  THE  FRACITIONAL  IONIZATION  (CH) 

FOR  EACH  RUN  WITH  A SET  OF  TABLES,  THE  PROGRAM  READS  IN  SO,  THE 
STARTING  DISTANCE.  DSO  THE  INITIAL  STEP  SIZE,  PRCT,  THE 
MULTIPLICATIVE  FACTOR  BY  WHICH  THE  INDEPENDENT  VARIABLE  SELECTED 
BY  ITEST  IS  ALLOWED  TO  CHANGE  BETWEEN  TABULATION  POINTS.  THE 
INITIAL  TEMPERATURE  TO.  INITIAL  DENSITY  NO.  INITIAL  HEAT  FLUX  QO, 
INITIAL  VELOCITY  UO,  TSTOP.  THE  TEMPERATURE  AT  WHICH  THE 
INTEGRATION  WILL  STOP,  SSTOP.  THE  DISTANCE  AT  WHICH  THE 
INTEGRATION  WILL  STOP.  tPS.  THE  MAXIMUM  RELATIVE  ERROR  IN  AN 
INDEPENDENT  VARIABLE  ALLOWED  PER  DSO,  AND  MSTOP.  THE  MACH  NUMBER 
AT  WHICH  THE  INTEGRATION  WILL  STOP.  IF  THE  INITIAL  HEAT  FLUX  READ 
IN  IS  GREATER  THAN  10  TO  THE  50TH  (A  VERY  UNPHYSICAL  VALUE)  THE 
INITIAL  HEAT  FLUX  IS  DETERMINED  BY  THE  CONDITION  THAT  THE  NET 
ENERGY  FLUX  IS  ZERO  AT  THE  STARTING  POINT. 

THE  CURRENT  VERSION  INTERPOLATES  THE  RESULTS  OF  THE 
INTEGRATION  TO  PRINT  OUT  VALUES  OF  DISTANCE  TEMPERATURE. 

DENSITY.  HEAT  FLUX.  VELOCITY.  PRESSURE  AND  A QUANTITY  WHICH 
CAN  BE  INFERRED  FROM  EUV  OBSERVATIONS  (P**2  KAPPA/Q  WHERE  KAPPA 
IS  THE  THERMAL  CONDUCTIVITY)  AT  VALUES  OF  THE  TEMPERATURE 
INITIALIZED  IN  THE  ARRAY  TMPOUT . IN  ADDITION  THE  INITIAL  AND 
FINAL  POINTS  OF  THE  INTEGRATION  ARE  PRINTED  OUT.  IF  THE 
RESULTS  ARE  TO  BE  WRITTEN  TO  LOGICAL  UNIT  10  ALL  THE  TABULATED 
RESULTS  ARE  PRINTED  AS  CALCULATED  BY  ABMINT . 
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DECLARE  AND  INITIALIZE  ARRAYS  AND  VARIABLES 

REAL *8  EPS,TSTOP,SSTOP,AO.UO,NO,TO,QO,SO,S,DSO,DS,PRCT, 

. P, YPASS  ( 4) , KAY/Z339F2C 6600000000/ , 

.MSTOP 

REAL  *8  G(819),DA(819),S0(819),A(819),0K(819),LU(819),CH(819), 

. DCC819)  .YTABC5. 20*48)  ,TABC8)  . GRAV  . DADS , SOR  , AR  , OKAP , LAM,  CH I , DCH I 

I NT  E GERM  NRUM.NTAB.  I RUN,  I TAB,  I , J 

EQUIVALENCE  ( TAB ( 1) , GR AV ) , ( TAB ( 2 ) , DADS) , ( T AB ( 3) , SOR ) , (TAB (4) ,AR) , 
. (TAB (5), OKAP), (TAB (6), LAM), (TAB( 7), CHI) , C TAB ( 8 ) , DCH I ) 

EXTERNAL  DIVF 

REAL  * 8 SPRIN .SBOTT /Z 4 741  43E 000000000/, TMP0UT( 40)/ 

. 1.D3,1.5D3,2.D3,3.D3,4.D3,5.D3,6.D3,7.D3,8.D3,9.03, 

. 1.04,1. 5D4, 2. D4, 3.04,4. D4, 5. D4, 6.04,7. D4, 8. D4, 9. D4, 

.1.D5, 1.50 5, 2. 05,3.05, 4. 05,5.05, 6. 05,7.05, 8. 05, 9. 05, 
.1.D6,1.5D6,2.D6,3.D6,4.D6,5.D6,6.D6,7.D6,8.D6,9.D6/ 

FORMAT ( 2 1 5 ) 

FORMAT ( 3Z 16) 

FORMAT (4013.6) 

FORMAT ( 1 H ,T4,  'S(CM)  1 , T 1 9 , 1 TEMP  1 , T 34 , ' N ' , T 4 9 , 'Q(CGS)', 

.T64,  'U(CGS)  ' ,T79.  'P(CGS)  ' ,T94,  'LUM' ,/) 

FORMAT ( 7 ( 1 PD  1 5 . 6 ) ) 

FORMAT ( 1 H 1 , T 4 , 'S(CM)',T19,  1 T EMP ' , T 34 , 1 N 1 , T 4 9 , 'Q(CGS)1, 

• T64,  'U(CGS)  ' ,T79,  'P(CGS) ' ,T94,  'LUM' ,/) 

FORMA  T ( 1 0A8) 

CALL  DIVINT  - PASS  BASE  ADDRESSES  OF  INTERPOLATION  TABLES 
TO  OIVF 

CALL  OIVINT(G.DA,SO,A,OK,LU.CH,DC) 

READ  IN  NUMBER  OF  SETS  OF  TABLES  AND  INDEX  OF  INDEPENDENT 
VARIABLE  THAT  CONTROLS  TABULATION  FREQUENCY 

READ(  5,  500DNTAB,  ITEST 
PRCT=1 . 05D0 

READ  IN  INTERPOLATION  TABLES 

DO  999  I TAB  = 1 ,NTAB 

R EAD ( 5 , 5001 )NRUN,NOUT 

READ(  9, 900-4 ) G 

READ ( 9 , 9004 ) DA 

READ(9,9004)S0 

READ ( 9 , 9004  ) A 

R E AD ( 9 , 9004 ) OK 

READ(9,9004)LU 

READ ( 9 , 9004 ) CH 

REA0(9,9004)DC 

READ  IN  INITIAL  CONDITIONS  FOR  RUNS 

DO  99  IRUN=1,NRUN 

READ(8,5002)S0,DS0,PRCT 

REA0(8, 5003)TO,NO,QO.UO 

READ (8. 5003)TSTOP,SSTOP, EPS, MSTOP 

INITIALIZE  AO  AND  QO  IF  NECESSARY 

YPASS ( 1 ) =T  0 
YFASS(2)=N0 

CALL  DIVF(SO, YPASS, TAB) 

AO=AR+NO*UO 

II  = 1 

I F ( QO . LE . 1 . E 50 ) GO  TO  5 

Q0=-.  EDO*  UO+NOMUO+U  0*1 .673520- 24+5. 00*KAY*T0*(  1 ,+CHI  )) 

YPASS( 3) =Q0 
Y PASS ( 4 ) =U  0 
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s=so 

DS-OSO 

NMAX=2048 

c 

C CALL  ABMINT  TO  INTEGRATE  EQUATIONS 

C 

CALL  ABMINT (S, YPASS. D I V F , DS , E PS , T STO P , SST OP , MST OP , YT AB ( 1.11), 
. AO. I TEST . FRCT , NMAX ) 

I 1 = 1 1+NMAX-1 
20  CONTINUE 
C 

C PRINT  OUT  RESULTS 

C 

C HE  LOOK  FOR  VALUES  OF  TEMPERATURE  THAT  BRACKET  VALUES 

C OF  TEMPERATURE  IN  TMPOUT  AND  INTERPOLATE.  UE  ALSO 

C DO  OUR  OWN  PAGINATION. 

C 

URITEC6. 600-4) 

ITEM?=0 
I L I NE  = 1 
1=2 

SFRJN=YTA8( 5. 1) 

CALL  DIVFCSPRIN, YTABC 1 . D.TAB) 

P = YTA3(2, 1)M1.D0+CHI)*YTAB(1.  1) 

RAGOUT  = 1 . D50 

IF (YTA3C3. 1).EQ.O.DO)GOTO  30 
RADOUT =-(P  + P)/(OKAP  + YT ABC  3. 1 ) ) 

30  P=KAY»P 

SPRIN=SPRIN-SBOTT 

UR  I TE (6, 6002JSFRIN, YTABC 1,1) , YTAB ( 2 , 1 ) .YTABC  3, 1 ) , 

.YTA3C4.  1 ) , P . RAGOUT 
C 

C FIND  NEXT  OUTPUT  TEMPERATURE 

C 

105  I TEMP=I TEMP+ 1 

IF  C I TEMP. GT . 40)GOTO  130 
I F C YT  AB ( 1 . I ) . GT . TMPOUT ( I TEMP) ) GOTO  105 
C 

C FIND  PRINT  TEMPERATURE  AND  PRINT 

C 

110  IF (YTABC 1 , 1+1 ). GT . TMPOUT ( ITEMP) )GOTO  115 
1=1  + 1 

I F C I .GE. I 1 ) GOTO  130 
GOTO  110 

115  F R AC  = ( TMPOUT ( I TEMP)- YTAB ( 1 , I ))/( YTABC 1 . I + 1 ) - YT AB ( 1 , I ) ) 

Y PASS ( 1 )=TMPOUT (ITEMP) 

YPASSC  2 ) =YT  AB ( 2 . I ) + FRAC*( YTABC 2 , 1+ 1 )- YTAB ( 2 , I ) ) 

YFASS(3)=YTAB(  3.  I )+FRAC*(YTA3(3. 1 + 1 )-YTAB(3, I ) ) 
YPASS(4)=YTA8(4.  I I + FRAC  (YTAB  (-4,  1 + 1 ) -YTABC  4,  I ) ) 

SFR I N = YTAB ( 5 , I ) + FR AC »C YT A3 ( 5 . I + 1 ) - YTAB ( 5 , I ) ) 

CALL  DIVFCYTABC5, I ) .YTABC 1 . I ) .TAB) 

P1=YTAB(2. 1 )*( 1 . DO+CHI ) ' YTA3(  1 , I ) 

CALL  DIVF(YTAB(5.I+1).YTAB( 1.1+1), TAB) 

P2=YTA3(2. 1 + 1 )*( 1 . DO+CHI ) +YTABC 1 , 1+1 ) 

P=P1+FRAC*(P2-P1) 

RADOUT  = 1 . D 50 

IF(YFASS(2).EQ.O.DO)GOTO  125 
RAD0UT=-(P^P)/(0KAP+YPASS(3) ) 

125  P = K A Y ■*  P 

SPRIN=SPRIN-SBOTT 

URITE  (6. 6002)SFRIN, TMPOUT ( ITEMP) , YPASSC 2) , YPASSC 3) , 

.YFASSC-4)  ,P, RADOUT 
1 = 1 + 1 

I F C I . GE . I 1 ) GOTO  130 
IL1NE=ILINE+ 1 
IFCILINE.LT. 58)G0T0  105 
I L I N E = 0 
UR  I TEC  6. 6004) 

GOTO  105 


109 


1 


o o o 


f 

II 


EH  IS  PAGE  IS  BEST  QUALITY  PRACTICABLE 

IBOM  COPY  FURHISHJ5D  TO  UUC . 


130  IF(I .GT. I 1 ) GOTO  99 
SPRIN=YTAB( 5. I ) 

CALL  DI VF (SPRIN, YTAB( 1 , I ) , TAB) 

P-YTABC2. I ) * ( 1 . DO+CH I ) ' Y T AB  ( 1 . I ) 

RA00UT=1 .050 

IF ( Y T A B ( 3 . I ) . EQ. 0. D0)G0T0  135 
radcut=-(p*p)/(okap*ytab(3, i n 
135  P-KAY  *P 

SFR!N=SPRIN-SBOTT 

WRITE!6.6002)SPRIN. YTAB! 1 . I ) , YTAB ( 2 ■ I ) , YTAB ( 3, I ) . 

. YTABM.  I ) .P.RADOUT 
99  CONTINUE 

WRITE  OUT  TABULATED  RESULTS  OF  INTEGRATION  IF  REQUESTED 

IFCNOUT.GE.  1 ) CALL  WR  T R ( Y T AB , NMAX ) 

999  CONTINUE 
STOP 
END 

SUBROUTINE  URTR(Y.N) 

IMFLICIT  REAL'S  (A-H.0-2) 

REALM  Y ! 5 . N ) 

1001  FORMAT ( 1 OA  8 ) 

1002  FCRMATtA-4) 

WRITE! 10. 1002) N 
WRITE! 10. 1001 ) Y 
RETURN 

END 
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ABMINT 


SUBROUTINE  ABMINT (S.YINT . E . OS . E PS , T STOP . SSTOP , MST OP . Y T AB . AO . 

. 1TS.PRCT.NMAX) 

ABMINT  SOLVES  A SET  OF  THREE  COUPLED  ORDINARY  DIFFERENTIAL 
EQUATIONS  PLUS  A CONSERVATION  RELATION  THAT  DESCRIBE  THE 
(STEADY  STATE)  BEHAVIOR  OF  A COMPRESSIBLE  FLUID  IN  A FLUX  TUBE. 

THE  ROUTINE  TAKE  THE  FOLLOWING  INPUT  PARAMETERS: 

S THE  INITIAL  DISTANCE  (ARBITRARY) 

YINT  THE  INITIAL  VALUES  OF  Y(1)-Y(4).  THE  INDEPENDENT 
VARIABLES  ( T E MPER A TUR E . DENSITY,  HEAT  FLUX  AND 
VELOCITY) 

F THE  NAME  OF  THE  SUBROUTINE  THAT  CALCULATES  THE 

DERIVATIVES  OF  THE  INDEPENDENT  VARIABLE  AND  THE  VELOCITY 
(MUST  BE  DECLARED  IN  AN  EXTERNAL  STATEMENT  IN  THE 
CALLING  ROUTINE) 

DS  THE  INITIAL  STEP  SIZE 

EPS  THE  DESIRED  ACCURACY  (RELATIVE)  FOR  A DISTANCE  DS 

TSTOP  THE  MAXIMUM  (OR  MINIMUM)  TEMPERATURE  TO  WHICH  THE 
ROUTINE  WILL  INTEGRATE 

SSTOP  THE  MAXIMUM  (MINIMUM)  DISTANCE  TO  WHICH  THE  ROUTINE 
WILL  INTEGRATE 

MSTOP  THE  MAXIMUM  MACH  NUMBER  TO  WHICH  THE  ROUTINE  WILL  INTEGRATE 

Y T AB  AN  ARRAY  IN  WHICH  THE  RESULTS  OF  THE  INTEGRATION  ARE 

RETURNED  TO  THE  CALLING  FROGRAM  - SHOULD  BE  DEMINISIONED  AT 
LEAST  5'NMAX.  VARIABLES  STORED  IN  THE  FOLLOWING  ORDER: 
TEMPERATURE.  DENSITY. HEAT  F LUX  . V E LOC 1 T Y AND  DISTANCE 

AO  THE  AREA  AT  THE  STARTING  POINT  TIMES  THE  DENSITY  AT  THE 
STARTING  POINT  TIMES  THE  VELOCITY  AT  THE  STARTING  POINT 
(A  CONSERVED  QUANTITY) 

ITS  INDEX  OF  THE  VARIABLE  THAT  CONTROLS  THE  FREQUENCY 
AT  WHICH  RESULTS  ARE  PUT  IN  Y T AB 

PR C T THE  MULTIPLICATIVE  FACTOR  BY  WHICH  THE  ITS  ELEMENT  OF  Y 

IS  ALLOWED  TO  CHANGE  BETWEEN  THE  TABULATION  OF  THE  RESULTS 

NMAX  THE  MAXIMUM  NUMBER  OF  TABULATION  POINTS 


THE  ROUTINE  USES  SEVERAL  LOCAL  WORKING  ARRAYS 
RUNGE-KUTTA: 

Y(4).YI(4).F0(4).F1(4).F2(4)  USED  TO  STORE  INTERMEDIATE 
VALUES  OF  THE  INDEPENDENT  VARIABLE  AND  THEIR  DERIVATIVES 

ADAMS-BASHFORTH-MOULTON  PREDICTOR  CORRECTOR: 

YU(  32) . FIJ(  32)  USED  TO  STORE  LAST  S STEPS  OF  INTEGRATION. 
THE  PRESENT  INTEGRATION  USES  4 PREVIOUS  VALUES  TO  ESTIMATE 
THE  NEXT  VALUE  SO  DOUBLING  THE  STEP  SIZE  CAN  BE  PONE  IF 
AT  LEAST  A INI EGRAT ION  STEPS  HAVE  OCCURRED  SINCE  THE  LAST 
DOUBLING  OF  THE  STEP  SIZE 

YP(4).YC(4)  USED  TO  STORE  THE  PREDICTED  AND  CORRECTED 
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VALUES  OF  THE  INDEPENDENT  VARIABLES 

ABMINT  USES  AN  AD AMS- BASHFOR T H- MOUL T ON  PR E D I CT OR- CORR E CT OR 
INTEGRATION  SCHEME.  START  UP  IS  ACCOMPLISHED  BY  BACKWARD 
INTEGRATION  WITHA  RUNGE-KUTTA  SCHEME  AND  MISSING  VALUES 
NEEDED  WHEN  HALVING  THE  STEP  SIZE  ARE  PROVIDED  USING  THE 
SAME  RUNGE-KUTTA  SCHEME 


DECLARE  VARIABLES 
IMPLICIT  REAL*?  (A-H.O-Z) 

REAL'S  S,EPS.ERR,DS.DT.TSTOP,TDIF1.TDIF2.H2.H3.H6.H8.H,T,ERRl, 
.YP(4),YC(4).Y1NT(4),YTAB(5.1),F0(4).F1(4),F2(4),Y1(4).Y(4),FP(4), 
. ON24/Z3FAAAAAAAAAAAAAB/, ERST. FU(  32)/32'0. DO/, YW( 32  >/32'0. DO/, 
.MSTOP.MACH.SSTOP.SDIF1.SPIF2.H924.CCC1/Z4161C71C71C7lC72/. 

. CCC2/Z4168E3SE3SE38E39/.CCC3/Z4141C71C71071C72/.FRAC 
INTEGER'4  I,J.K.'ND,IN1.IN2.IN3.IN4.1T,D0UBLE 
LOG  I CAL  *4  DONE 

START  UP  USING  INTEGRATION  BY  4TH  ORDER  R-K  £ 1/32  DS 


1 


S 


l 


| 


VCHI-FRCT'YINT(ITS) 

VCH2  = FRCT'VCH  1 
FRAC  = 1 . DO 

MACH=1 . 649959D8*MSTOP*MSTOP 
MMAX=NMAX 

15  0T=. 0312500'PS'FRAC 
H2-DT* . 500 
H3=DT/3. DO 
H6-H3'.  5D0 

HS  = H2*.  25D0 
T = S 
IND  = 4 

DO  11  1=1,4 
1 1 Y T AB ( I . 1 ) =Y I NT  ( I ) 

YTABC  5.  1)=S 

CALL  F (T ,YINT , FO,AO.£999) 

DO  1 1=1,4 
Y(I )=YINT(I  ) 

YW ( I ) =Y  I N T (I  ) 

1 FU ( I ) =F  0 ( I ) 

DO  2 1=1.3 

DO  3 J=1 . 2 
DO  4 K = 1 , 3 

4 Y1(K)=F0CK)*H3+Y(K) 

CALL  F ( T + H3. Y 1 . F 1 . AO. C999) 

DO  5 K = 1 . 3 

5 Y1 (K)=(F0(K)+F 1 (K) )*H6+Y(K) 

CALL  F (T+H3. Y 1 , F 1 . AO. £999) 

DO  6 K = 1 . 3 

6 Y1(K)=(F1(K)'3.D0'F0(K) )*H8+Y(K) 

CALL  F(T+H2.Y1,F2.A0.£999) 

DO  7 K = 1 , 3 

7 Y 1 (K  ) = CF2(K)t4.  DO-F  1 ( K ) '3.  DO+FO (K ) )'H2-*-YCK) 
T =T  + DT 

CALL  F ( T . Y 1 . F 1 . AO . £999 ) 

DO  9 K = 1 . 3 

9 Y(K)=(F2(K)*4.D0'F1(K)+F0(K))*H6+Y(K) 

3 CALL  F ( T . Y . F 0 . AO , £999 ) 

DO  8 J=1 , 4 

YUC IND+J)=Y< J) 

8 F U ( I ND+ J) =F  0( J) 

2 IND=IND+4 

IFCYIK  12+ITS) . LT. VCH1 )GOTO  16 
FRAC=FRAC'0. 5D0 
GOTO  15 

16  SOI F 1=S-SSTOP 
S = T 
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TDIF  1 =YU  C 1 ) - T ST  OP 
H-DS'FRAC’O.  0625D0*0N24 
DT=DS*FRAC+. 0625DO 
H92-J-DT*.  375D0 
ERR=EFS+FRAC+. 01  562  5D  0 
ERR1=ERR*0. 03125D0 
I N 1 =0 
I N2  = *1 
! N 3-  S 
I N4= 1 2 
D0UBLE=4 
CONE -.FALSE . 

C 

C END  INITIALIZATION 

C 

I -2 

50  DOUBLE  = DCUBLE  - 1 

55  CONTINUE 

00  20  0=1.3 

20  YP( J > = Y U ( IN4+J)+H924*(CCC1*FU( I N4+ J) -CCC2*FU ( IN3+J) 

+CCC3*FU( IN2  + J)-FU( IN  1+J)  ) 

CALL  F (S+DT .YP. FP.A0.E999) 

DO  30  J=1  . 3 

30  YC(J)=YU(IN4+J)  + HM9.*FP(J)  + 19.*FU(IN4+J)-5.*FUUN3+J) 

+FUC IN2+J) ) 

TDIF2=YC(1)-TSTOP 

IF(DSICN(TD!F2.TDIF1) . NE . T D I F 2 ) DONE  = . T RU E . 

SO  I F 2-S-SSTOP 

IF(DSI GNCSDIF2.S0IF 1 ) .NE .SDIF2)OONE=.  TRUE. 

35  CALL  F CS+DT,YC.FP,A0.£999) 

IFCYCC4)+YC(4).GT.M4CH*YC(1  ) )DONE=.  TRUE  . 

ERST-DABSIYPC 1 ) - YC C 1 ) ) /( TABS ( YP ( 1) ) + DABS < YC ( 1 > ) ) 
ERST=0H4X1(0ABS(YP(2)-YC(2) )/(DABS(YP<2) )+DABSCYC(2) )>,ERST) 
I F (DABS(YC(3) ) + DABS(YP(3) ) . LT . 1 . E- 30) GO  TO  220 
ERST  - DI'“  \ 1 (DABSCYPC  3 ) - Y C ( 3)  )/CDABS(YP(  3)  ) + DABS(YC(3) ) ) . ERST) 
220  I F (DA3S(YC(4)  )+DABS(YP(  4) ) . LT  . 1 . E-305G0T0  215 

ERST =P‘UX 1 ( DABS! YP( 4 )-YC( 4 ))/(DABS(YP( 4) )+DA8S ( YC ( 4 ) ) ) .ERST ) 
215  IFIYCC ITS) . GT .VCH2JG0T0  90 

IF (ERST. GT . ERRIOOTO  100 
IF  CERST . LT . ERR  T )GOTO  200 
205  S-S+DT 

1 N 1 = I N 2 
I N 2 = I N 3 
I N 3 - I N 4 

I N 4 = f1QD  ( I N 4 + 4 , 32) 

DO  40  J=1 . 4 

YU( IN4+J)=YC(J) 

40  F 14 ( I N 4 + J ) =F  P ( U ) 

IFCYC(ITS).LT.VCH1)G0T0  50 
DO  60  J=1,4 

60  YTABIJ. I ) = YC ( J ) 

YTABC  5. I ) -S 
1=1  + 1 

I F ( I . GT . NMAX ) GOTO  10 
VCH 1 =VCH2 
VCH2=FRCT+VCH1 
IF (DONE 1G0T0  10 
GOTO  50 
90  I ACC  = 1 

GOTO  103 
100  I ACC=0 
103  CONTINUE 
C 

C SECTION  THAT  HALVES  INTEGRATION  STEP 

C 

IFCOT.LT.  l.D-DGOTO  205 
IF  (DT . GT . DS1G0T0  109 
ERR  =ERR  * . 5D0 
ERR  1 =ERR 1 + . 5DC 


. * 
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109  DT  = DT* . 5D0 


H=0T*0N24 
H 9 2 4 = D T * . 375D0 

REARRANGE  WORKING  ARRAYS 

IT=M0D(IN4+12,  32) 

J = IN4 

DO  101  K=1,4 

FU( IT+K)=FU( IN4+K) 

101  YU( I T+K ) =YU ( I N 4 + K ) 

I N4  = I T 

I T =MOD ( I N 3+8 , 32) 

DO  102  K=1 . 4 

F W ( IT  + K)=FW( IN3+K) 

YW(IT+K)=YU( IN3+K) 

FW(IN3+K)=FW(IN2+K) 

102  YU( IN3+K)=YW( IN2+K) 

I N2= I T 

I T = I N 3 
IN1=J 

IN3=M0D( IN2+4. 32) 

GENERATE  MISSING  INFORMATION  WITH  4TH  ORDER  R-K 


110 

130 

140 

150 

160 

180 

120 

170 

115 

135 

145 

155 


H2-DT* .2500 
H3=DT/6. DO 
H6-H3*. 5D0 
H8=H2*. 25DO 
T=S-(DT+DT) 

DO  110  J=1 , 4 
Y(J)=YU(IN2+J) 

F0(J)=FU(IN2+J) 

DO  120  J= 1 . 2 
DO  130  K = 1 . 3 

YUK)=F0(K)*H3+Y(K) 

CALL  F(T+H3.Y1,F1,A0,£999) 

DO  140  K = 1 , 3 

Y1(K)=(F0CK)+F 1 (K))*H6+Y(K) 

CALL  F(T+H3.Y1.F1,A0.£999) 

DO  150  K = 1 . 3 

Y1(K)=(F1 (K)*3.D0+F0(K) )*H8+Y(K) 

CALL  F(T+H2.Y1,F2,A0,£999) 

DO  160  K - 1 . 3 

Y 1 (K)=(F2(K)*4. DO-F 1 ( K ) *3 . DO+FOCK) )*H2+Y(K) 
T=T+H2+H2 

CALL  F ( T , Y 1 , F 1 , AO , £999 ) 

DO  180  K=1 , 3 

Y ( K ) = ( F2 (K ) *4 . 00  + F 1 (K ) + FO(K) ) *H6+Y (K ) 

CALL  F(T, Y,F0,A0,C999) 

CONTINUE 
DO  170  J=1 , 4 

FU( IN3+J)=F0( J) 

YU ( I N 3+ J ) = Y ( J ) 

DO  115  J= 1 . 4 
Y(J)=YU(IT+J) 

F 0 ( J)=FU( IT  + J) 

T=S-4.D0*DT 
DO  125  J= 1 . 2 
DO  135  K = 1 . 3 

Y1(K)=F0(K)*H3+Y(K) 

CALL  F (T+H3.Y1 ,F 1 , AO. £999) 

DO  145  K=1 . 3 

Y1(K)=(F0(K)+F1(K))*H6+Y(K) 

CALL  F(T+H3,Y1,F1,A0»£999) 

DO  155  K = 1 . 3 

Y 1 (K)  = (F  1 ( K ) *3 . DO  + FOCK) ) *H8+Y (K) 

CALL  F(T+H2,Y1,F2,A0,£999) 

DO  165  K=1 , 3 
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165  Y1(K)=(F2(K)*4.D0-F1(K)*3.00+F0(K) )»H2+Y(K) 

T=T +H2+H2 

CALL  F(T,Y1,F1,A0,C999) 

DO  185  K=1 . 3 

185  Y(K)-(F2(K)>4.D0+F1(K)+F0(K))*H6+Y(K) 

CALL  F (T ,Y , F 0 , AO . £999 ) 

125  CONTINUE 

DO  175  J=1,4 

FW(IN1+J)=F0(J) 

175  YWC IN1+J)=Y( J) 

GOTO  55 
C 

C RETURN  TO  ADM  P-C  INTEGRATION  WITH  NEW  STEP  SIZE 

C 

200  CONTINUE 
C 

C SECTION  THAT  DOUBLES  INTEGRATION  STEP  SIZE 
C 

IFCIACC.EQ. 1 ) GOTO  205 
IF (DOUBLE . GE . 0)G0T0  205 
DOUBLED 
S=S-0T 
DT-DT+DT 
H=DT *ON24 
HOZ-I^DT*.  37FB0 
IF(DT.GT.DS)GOTO  209 
ERR=ERR^ERR 
ERR  1 =ERR  1 + ERR  1 

209  K =T10  0 ( IN-IM.  32) 

I T - MOO  C IN-14  12,32) 

DO  210  J=1 . A 

FW  ( I N ■)  4 J ) F W ( IN34J) 

YU  ( lN-4+J)-YU([N3  + J) 

FW( IN34 J) = FU( IN 1+J) 

YW( IN34J)=YW( IN1+J) 

TW( IN  1+J)-FU(K  + J) 

YW  ( I N 1 + J ) - Y W ( K 4 J ) 

FW( IN2+J)=FW( IT+J) 

210  YW( IN24J)=YW(I T+J) 

GOTO  205 

10  NMAX=I - 1 
RETURN 

999  CONTINUE 

6001  FORMAT ( 1 H .'FATAL  ERROR  T OR  S OUT  OF  TABULATED  RANGE') 
WRITE (6, 6001) 

S = -S 
N M A X - I 
RETURN 
END 
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CSECT 

PIVFtS.Y.DY.AO.*) 

REAL  *8  S.Y(4).DY(4).A0 


D I V F (S.Y.TAB) 

REAL* 8 S.Y(4),1AB(8) 


THE  FIRST  rORM  Of  THE  CALL  CALCUALTES  THE  DERIVATIVES 

DT/DS  = 0Y(1)/0S  , PN/PS  = PY  C 2 ) •'PS  f,  PQ/PS  = 0Y(3)/PS 

AND  STORES  THEN  IN  ARRAY  PY.  THE  VALUE  OF  V Y ( 4)  IS  COMPUTED 
FROM  THE  CONSERVATION  l AW  N V A = CONSTANT  AND  STORIP  IN  Y ( 4 ) . 
THE  ROUTINE  INTERPOLATES  THE  VALUES  OF  PRARME  T ERS  NEEDED  I OR 
THE  CALCULATIONS  f ROM  T ADULATIONS  OF  4 FUNCTIONS  Of  S ONLY  AND 
4 FUNCTIONS  OF  T ONLY.  IF  S OR  T IS  OUT  OF  THE  TABULATED 
RANGE.  THE  OFFENDING  QUANTITY  IS  NLGA1ED  AND  I HE  ROUTINE  POI S 
THE  EQUIVALENT  OF  A FORTRAN  RETURN!. 

THE  SECOND  FORM  OF  THE  CALL  STATEMENT  (DISTINGUISHED  I ROM  THE 
FIRST  DY  THE  NUMBER  Of  ARGUMI NTS)  CALCULATES  THE  INTERPOLATED 
VALUES  Or  G (S)  . PA.'PS(S)  . SOURCE  (S)  . A R l ACS)  AND  1/KAPPAd). 
LAMPPAU).  CHI(T)  AND  DCH I /P  T ( T ) AND  STORES  THEM  IN  TAD. 

THERE  IS  A SECOND  ENTRY  POINT  (PIv’.NT)  WHICH  PICKS  UP 
AND  STORES  LOCALLY  T HI  ADDRESSES  OF  1 HI  TABULATIONS  OF 
THE  FUNCTIONS  NEEDED  FOR  THE  CAL  CUE AT  1 ONS . 

NOTE  THAT  THIS  MEANS  THAT  MEANINGLESS  RESULTS 
WILL  PE  PRODUCED  If  PIVINT  IS  NOT  CALLED  BEFORE 
THE  FIRST  TIME  DIVF  IS  CALLED.  IT  IS  EVEN  POSSIBLE 
THAT  SOME  SORT  OF  ABEND  WILL  RESULT. 

THE  FOLLOWING  TWO  fORTRAN  SUBROUTINES  ARE  ROUCHI Y I Ql*  I VALENT 
TO  THE  TWO  CALLS  TO  DIVF  (PIVINT  IS  NOl  REPRODUCED) 

SUBROUTINE  DIVFCS.Y.DY.AO.*) 

IMPLICIT  REALM  (A-H.O-Z) 

DIMENSION  Y ( 4 ) . DY ( 4 ) 

REAL’S  KOMH/8 . 2989776D 7/ . T I ON/ 1 . 04646060  5/ . KAY/ 1 . 380620  16/ 

D Y ( 1 ' = - Y ( 3 ) ’ OK AP ( T ) 

Y(4)-A0/(Y(2)’*A(S)  ) 

DY(?)-IY(2)«(Y( 4) *Y(4)’PAPS(S)  PY( D’KOMH 
. ( ( 1 . DO ’CHI  ( T ) ) ♦ (T  ’PC  II I ( T)  )-G(S)  *S)  > )/ 

. ( K 0 M H * ( 1 . PO’CHl ( I)) *Y(  1 ) Y(4)*Y(41) 

DY  C 3)=-(L (T ) ’CHI ( T)’Y(2)*Y(2) >- ( T . 6P0*Y ( 4 ) » Y ( 2 ) *KAY»DY( 1 ) 

. *(( T. OO’CHI (T ) )*(Y( T )-T ION) ’DCH I ( I )))♦((  1 . 00  CHI ( T ) ) *K A) 

. ’Y(  1)  *Y(4)*DY(2) J’SORCS)  Y( 3) ’DADS 
RETURN 
END 

SUBROUTINE  P I VF ( S . Y . T AB ) 

IMPLICIT  REAL  «8  (A  H.O-Z) 

DIMENSION  Y( 4). TAPE  8) 

T AO ( I ) G(S) 

TAB(2)=PAPS(S) 

TAB(3)-S0R(S) 

T A B ( 4 ) - A ( S ) 

TAB( 5)=0KAP(T ) 

TAB(6)=L( T ) 

T ABC  7) -CHI (T) 

T A B ( 8 ) - 0 C H I ( T ) 

RETURN 

END 

NOTE:  IN  THE  COMMENTS  * R * R I I IRS  TO  G! N! RAt  PURPOSE  R1G1S1IRS 
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AND  * r * REFERS  TO  FLOATING  POINT  REGISTERS. 


USING  *,15 


DFIRST 
X ’ 0-4  * 

C L 5 ‘ D I V F 


TELL  ASSEMBLER  NEST  INST  ADDR  IN  R 1 5 
BRANCH  AROUND  NAME  AND  OTHER  ENTRY  POINT 


01  VINT (G, DADS, SOR . AREA, OKAP.LUM, CHI , OCHI ) 
REAL'S  G( 563) . PADS ( 563) . SOR ( 563) .AREA! 563) , 
REAL '8  OKAPI  820) , LUMC  820) ,CHI(820).PCHI(820) 


ENTRY 

DIVINT 

USING 

♦.15 

TELL  ASSEMBLER  NEXT  INSTR  ADDR  IN  R15 

DIVINT 

B 

TFIRST 

BRANCH  AROUND  NAME 

DC 

X • 06 ' 

DC 

CL  7 * 0 I V I NT  ' 

TFIRST 

STM 

14, 12, 12(13) 

SAVE  CALLING  ROUTINES  GPR'S 

LM 

2.9.0(  1) 

GET  BASE  ADDR'S  OF  INTERPOLATION  TABLES 

STM 

2 . 9. GADOR 

SAV  TABLE  BASE  ADDR'S 

LM 

2 . 9 , 28 ( 13) 

RESTORE  CALLING  ROUTINE'S  GPR'S 

MV  I 

12(13), X ’ F F ' 

INDICATE  CONTROL  RETURNED 

% 

BR 

14 

RETURN  FROM  INITIALIZATION 

* 

* 

.MAIN 

ROUTINE  RESUMES 

USING 

DIVF  , 15 

DFIRST 

STM 

14.12. 12(13) 

SAVE  CALLING  ROUTINES  GPR’S 

L 

2.0(1) 

R2  <=  ADDR  S 

LM 

3. 6, GADDR 

R3-R6  (=  ADDR'S  OF  TABLES  FOR  S 

MV  C 

FLOAT+ 1 (6) . 2(2)  FLOAT  <=  FRACTIONAL  DISTANCE  FROM 

t 

NEXT  SMALLER  VALUE  OF  S TABULATED. 

LH 

12,0(2) 

R12  <=  HIGH  ORDER  BYTES  OF  S 

S 

12.SDISP 

REDUCE  R 1 2 BY  SDISP  - # WORDS  FROM 

* 

BASE  OF  TABLES 

LD 

4. FLOAT 

F 4 < = FRACTION  0 LE  FRAC  LE  1 

BM 

BADS 

IF  RESULT  IS  NEGATIVE  OUT  OF  RANGE 

* 

GOTO  BADS 

C 

12.SBND 

COMFARE  R 1 2 TO  SBND  - IF  GREATER 

BH 

BADS 

OUT  OF  RANGE  GOTO  BADS 

SD 

4,  -D ' . 5' 

F4  <=  X = FRAC  - . 5 -.5LEXLE.5 

SLA 

12.3 

R 1 2 <=  R 1 2*8  NOW  BYTE  DISPLACEMENT 

* 

£ 

FROM  BASE  OF  INTERPOLATION  TABLE. 

* 

NOW  COMPUTE  WEIGHTS 

FOR  CUBIC  INTERP0ALT10N  OF 

* 

* 

FUNCTIONS  OF  S 

LDR 

2.4 

F 2 <=  X 

MDR 

4,4 

F 4 <=  X**2  = X2 

HDR 

4.4 

F 4 <=  X2/2 

SD 

4 . =D ' 1 . 1 2 5 ’ 

F 4 <=  X2/2  - 9/8 

LDR 

6,4 

F 6 <=  X 2/2  - 9/8 

HDR 

4,4 

F 4 <=  X2/4  - 9/16 

MDR 

6.2 

F 6 <=  X 3/2  - 9X/8 

LCDR 

0.4 

FO  <=  -X2/4  + 9/16 

ADR 

0.6 

FO  <=  X 3/2  - X2/4  - 9X/8  + 9/16 

STD 

0.UM1 

WM 1 <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 

* 

INC  TO  CLOSEST  SMALLER  VALUE  OF  S. 

LCDR 

0,4 

FO  <=  -X2/4  + 9/16 

SDR 

0,6 

FO  <=  -X3/2  - X2/4  + 9X/8  + 9/16 

STD 

0.WP1 

WP 1 <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 

* 

ING  TO  CLOSEST  LARGER  VALUE  OE  S. 

ADR 

6.2 

F 6 <=  X3/2  - X/S 

AD 

4 . -0 1 . 5 1 

F 4 <=  X2/4  - 1/16 

MD 

6, =X  '4055555555555555 ' F6  <=  X3/6  - X/24 

LDR 

0.4 

FO  <=  X2/4  - 1/16 

SDR 

0.6 

FO  <=  -X 3/6  + X2/4  + X/24  - 1/16 

APR 

6.4 

F 6 <=  X3/6  + X2/4  - X/24  - 1/16 

STO 

0.WM3 

WM3  <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 

* 

ING  TO  2ND  CLOSEST  SMALLER  VALUE  OF  S. 

117 


I 


STD  6.WP3 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
FROM  COPY  FURNISHED  TO  DDC  __ 


UP 3 <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND- 
ING TO  2ND  CLOSEST  LARGER  VALUE  OF  S. 


NOW  CALCULATE  INTERPOLATED  VALUES  OF  GRAVITY  AND  PA/DS 
(HAVE  WEIGHTS  FOR  TABLES  ENTRIES  1 C 4 IN  FPR'S  0 C 6) 


L DR 

•1.0 

F 4 

< = 

WEIGHT  1 

L PR 

2.6 

F 2 

< = 

WEIGHT  4 

MD 

0.0(3. 12) 

FO 

< = 

WEIGHT  1 * GRAV  1 

MD 

2.2-1(3.12) 

F2 

< = 

WEIGHT  4 * GRAV  4 

MD 

4, OH.  12) 

F 4 

< = 

WEIGHT  1 * DA/DS  1 

MD 

6.24(4,12) 

F 6 

< = 

WEIGHT  4 * PA/OS  4 

ADR 

0.2 

FO 

< = 

WI'GI  + W4*G4 

ADR 

4.6 

F 4 

< = 

U1 *D 1 + W 4 * D 4 

LD 

2.WM1 

F 2 

< = 

WEIGHT  2 

L PR 

6.2 

F 6 

< = 

WEIGHT  2 

MD 

2.8(3. 12) 

F 2 

< = 

W 2 * G 2 

MD 

6.8(4,12) 

F 6 

< = 

W 2 1 D 2 

ADR 

0.2 

FO 

< = 

U1*G1  + W 4 G 4 + W 2 * G 2 

ADR 

4.6 

F 4 

< = 

W1*P1  + W 4 * D 4 + W2*D2 

LD 

2 , UP  1 

F 2 

< = 

WEIGHT  3 

LDR 

6.2 

F 6 

< = 

WEIGHT  3 

MD 

2.  16(3. 12) 

F 2 

: < 

= U3*G  3 

MO 

6.16(4.12) 

FC 

. < 

= U3*D3 

ADR 

0.2 

F 2 

< = 

INTERPOLATED  VALUE  OF 

ADR 

4.6 

F 4 

< = 

INTERPOLATED  VALUE  OF 

STD 

0.  G 

G < 

= 

INTERPOLATED  VALUE  OF 

STD 

4.  DADS 

PADS 

<=  INTERPOLATED  VALUE 

LD 

0.WM3 

FO 

< = 

WEIGHT  1 

LD 

2.  UP  3 

F 2 

< = 

WEIGHT  4 

NOW  CALCULATE  VALUES  OF  SOURCE  AND  AREA 
( HAVE  WEIGHTS  I H IN  FPR'S  0 L 2) 


LDR 

4,0 

F 4 

<=  WEIGHT  1 

LDR 

6,2 

F 6 

<=  WEIGHT  4 

MO 

0,0(5. 12) 

FO 

<=  WEIGHT  1 * SOURCE  1 

MO 

2.24(5. 12) 

F 2 

<=  WEIGHT  4 * SOURCE  4 

MD 

4.0(6.12) 

F 4 

<=  WEIGHT  1 * AREA  1 

MO 

6.24(6.12) 

F 6 

<=  WEIGHT  4 * AREA  4 

ADR 

0.2 

FO 

<=  W 1 ♦ S 1 ♦ W4*S4 

APR 

4.6 

F 4 

<=  W 1 * A 1 + U 4 * A 4 

LD 

2 . WM 1 

F 2 

<=  WEIGHT  2 

LDR 

6.2 

F 6 

<=  WEIGHT  2 

MO 

2.8(5.12) 

F2 

<=  W 2 * S 2 

MD 

6.8(6. 12) 

F 6 

<=  W2»A2 

ADR 

0.2 

FO 

< = W 1 ♦ S 1 + W 4 * S 4 ♦ W ? * S 2 

ADR 

4.6 

F 4 

<=  W 1 * A 1 + W 4 * A 4 + U2*A2 

LD 

2.WP1 

F 2 

<=  WEIGHT  3 

LDR 

6.2 

F 6 

<=  WEIGHT  3 

MD 

2.16(5.12) 

F 2 

<=  W 3 i S 3 

MD 

6,16(6.12) 

F 6 

<-  W3*A3 

ADR 

0.2 

F 2 

<=  INTERPOLATED  VALUE  OF 

APR 

4.6 

F 4 

<=  INTERPOLATED  VALUE  OF 

STD 

O.SOR 

SOR 

<=  INTERPOl ATED  VALUE  OF 

STD 

4.  AREA 

AREA  <=  INTERPOLATED  VALUE  0 

CALCULATE  INDEX  AND  FRACTIONAL  DISPLACEMENT  FOR  INTERPOLATION 
ON  TEMPERATRUE  (T)  TABLE 

L 2, *1(1)  R 2 <=  BASE  ADPR  Y ARRAY 

LM  3.6,  KADDR  R3-R6  <=  BASE  APDR’S  TABLES  FOR 

INTERPOLATION  OF  FUNCTIONS  OF  T 
MVC  F LOAT  1 ( 6 ) . 2 ( 2 ) FLOAT  <-  FRACTIONAL  DISTANCE  FROM 

NEXT  SMALLER  VALUE  OF  T TABULATED. 
LH  12.0(2)  R 1 2 <=  HIGH  ORDER  BYTES  OF  T 

S 12.TDISP  REDUCE  R 1 2 BY  TDISP  - • WORDS  FROM 

BASE  Or  TABLES 

LD  A. FLOAT  F 4 <=  FRACTION  0 LE  FRAC  LE  1 


* ¥ 
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BM 

BADS 

IF  RESULT  IS  NEGATIVE  OUT  OF  RANGE 

* 

GOTO  BADS 

C 

12.TBND 

COMPARE  R 1 2 TO  TBND  - IF  GREATER 

{ " 

BH 

BADS 

OUT  OF  RANGE  GOTO  BADS 

1* 

SD 

4, =D  ' . 

5' 

F4  <=  X = FRAC  - . 5 -.5LEXLE.5 

SLA 

12,3 

R 1 2 <=  R 1 2*8  NOW  BYTE  DISPLACEMENT 

* 

FROM  BASE  OF  INTERPOLATION  TABLE. 

% 

NOU 

COMPUTE 

WEIGHTS 

FOR  CUBIC  I NT  ERPOALT I ON  OF 

♦ 

FUNCTIONS  OF 

T 

LDR 

2, A 

F 2 <=  X 

MDR 

A,  A 

F 4 <=  X**2  = X2 

HDR 

A.  A 

F 4 <=  X2/2 

SD 

4, =D  ' 1 

. 125' 

F 4 <=  X2/2  - 9/8 

LDR 

6,4 

F 6 <=  X2/2  - 9/8 

HDR 

4,4 

F 4 <=  X2/4  - 9/16 

MDR 

6,2 

F 6 <=  X 3/2  - 9X/8 

LCDR 

0,4 

FO  <=  -X2/4  + 9/16 

ADR 

0.6 

FO  <=  X3/2  - X2/4  - 9X/8  + 9/16 

STD 

0 , 14M 1 

WM1  <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 

i * 

ING  TO  CLOSEST  SMALLER  VALUE  OF  T. 

4 

LCDR 

0,4 

FO  <=  -X 2/4  + 9/16 

SDR 

0.6 

FO  <=  -X3/2  - X 2/4  + 9X/8  + 9/16 

. 

STD 

0.I4P1 

WP1  <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 

* 

ING  TO  CLOSEST  LARGER  VALUE  OF  T. 

ADR 

6,2 

F 6 <=  X 3/2  - X/8 

AD 

4, =0  ' . 

5’ 

F 4 <=  X2/4  - 1/16 

MO 

6. =X  *4055555555555555 ' F6  <=  X3/6  - X/24 

I » 

LDR 

0,4 

FO  <=  X2/4  - 1/16 

SDR 

0,6 

FO  <=  -X  3/6  + X 2/4  + X/24  - 1/16 

t 

ADR 

6,4 

F 6 <=  X3/6  + X 2/4  - X/24  - 1/16 

sro 

0.WM3 

WM3  <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 

[ * * 

ING  TO  2ND  CLOSEST  SMALLER  VALUE  OF  T. 

Li 

STD 

6.WP3 

WP3  <=  WEIGHT  FOR  TABLE  ENTRY  CORRESPOND 

* ING  TO  2ND  CLOSEST  LARGER  VALUE  OF  T. 

* 

* NOLI  CALCULATE  INTERPOLATED  VALUES  OF  1/KAPPACT)  AND  L 

* (HAVE  WEIGHTS  FOR  TABLES  ENTRIES  1 L 4 I N FPR'S  0 £ 6) 

* 


I 


LDR 

4.0 

F 4 

<=  WEIGHT  1 

LDR 

2.6 

F 2 

<=  WEIGHT  4 

MD 

0,0(3,12) 

FO 

<=  WEIGHT  1 * K 1 

MD 

2,24(3, 12) 

F 2 

<=  WEIGHT  4 * K 4 

MD 

4,0(4, 12) 

F 4 

<=  WEIGHT  1 * L 1 

MD 

6.24(4, 12) 

F 6 

<=  WEIGHT  4 * L 4 

ADR 

0,2 

FO 

<=  W 1 *K 1 + W4*K4 

ADR 

4,6 

F 4 

<=  W 1 * L 1 + W 4 * L 4 

LD 

2 , WM1 

F 2 

<=  WEIGHT  2 

LDR 

6.2 

F 6 

<=  WEIGHT  2 

MD 

2,8(3, 12) 

F 2 

<=  W2*K2 

MD 

6,8(4,12) 

F6 

<=  W2*L2 

ADR 

0,2 

FO 

<=  U 1 *K  1 + W4+K4  + W2*K2 

ADR 

4,6 

F 4 

<=  W1H1  + W4*L4  + W2*L2 

LD 

2 , WP  1 

F 2 

<=  WEIGHT  3 

LOR 

6,2 

F 6 

<=  WEIGHT  3 

MD 

2, 16(3, 12) 

F 2 

<=  W3+K3 

MD 

6,16(4,12) 

F 6 

<=  W3H3 

ADR 

0.2 

F 2 

<=  INTERPOLATED  VALUE  OF  1/KAPPA 

ADR 

4,6 

F 4 

<=  INTERPOLATED  VALUE  OF  L 

STD 

0 , OKAP 

OKAP  <=  INTERPOLATED  VALUE  OF  1/KAPPA 

STD 

4 , LUM 

LUM 

<=  INTERPOLATED  VALUE  OF  L 

CHECK  TO  SEE  IF  GAS  FULLY  IONIZED  (T  > 65,536,  BYTE  DISP  > 3BC  C HEX ) ) , 
* IF  SO  SKIP  INTERPOLATION  OF  CHI  AND  DCHI/DT,  IF  NOT  CONTINUE 
% 

C 12.HBYTE 

BC  2.HIGHT 

LD  0,14113  FO  <=  WEIGHT  1 
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L0 

2.WP3 

F 2 <=  WEIGHT  4 

NOW  CALCULATE  VALUES  OF 

CHI  AND  DCHI/DT 

( HAVE  WEIGHTS  1 £ 4 IN 

FPR'S  0 £ 2) 

LDR 

4,0 

F 4 <=  WEIGHT  1 

LOR 

6,2 

F 6 <=  WEIGHT  4 

no 

0,0(5,12) 

FO  <=  WEIGHT  1 * CHI  1 

no 

2,24(5. 12) 

F2  <=  WEIGHT  4 * CHI  4 

no 

4,0(6,12) 

F 4 <=  WEIGHT  1 * DCHI/DT  1 

no 

6,24(6,12) 

F 6 <=  WEIGHT  4 * DCHI/DT  4 

ADR 

0,2 

FO  <=  W1*C1  + W4*C  1 

ADR 

4,6 

F 4 <=  W1*D1  + W4*D4 

LD 

2 , WM1 

F 2 <=  WEIGHT  2 

LDR 

6,2 

F 6 <=  WEIGHT  2 

no 

2,8(5, 12) 

F 2 <=  W2*C2 

no 

6,8(6, 12) 

F 6 <=  W2  + D2 

ADR 

0.2 

FO  <=  W1»C1  + W4*C4  + W 2 * C 2 

ADR 

4,6 

F 4 <=  Wi*D1  + W4*D4  + W2*D2 

LO 

2 , UP  1 

F 2 <=  WEIGHT  3 

LDR 

6,2 

F 6 <=  WEIGHT  3 

no 

2,  16(5,12) 

F 2 <=  W3*C 3 

no 

6,  16(6,12) 

F 6 <=  W 3 * D 3 

ADR 

0.2 

F 2 <=  INTERPOLATED  VALUE  OF  CHI 

ADR 

4,6 

F 4 <=  INTERPOLATED  VALUE  OF  DCHI/DT 

STD 

0,  CHI 

CHI  <=  INTERPOLATED  VALUE  OF  CHI 

STD 

4 , DC H I 

DCHI  <=  INTERPOLATED  VALUE  OF  DCHI/DT 

Ln 

3, 4, 8(1) 

GPR'S  3£4  <=  BASE  ADDR'S  OF  DY  AND  AO 

LTR 

3,3 

CHECK  IF  3 NEGATIVE  IF  SO  IS  LAST 

en 

TABL 

PARAMETER  - GOTO  TABL 

LD 

2.0KAP 

F 2 <=  1/KAPPA 

LNDR 

2,2 

F 2 <=  -1/KAPPA 

no 

2,  16(2,0) 

F 2 <=  -Q/KAPPA  = OT/DS 

STD 

2, 0(3.0) 

STORE  DT/DS 

AD 

0,  =D  ' 1 . * 

FO  <=  1+CHI 

LD 

2, 0(4,0) 

F 2 < = AO  = NO*UO*AO 

LD 

6, AREA 

F 6 <=  AREA 

nD 

6. 8(2.0) 

F 6 <=  AREA*N 

DDR 

2.6 

F 2 <=  (NO*UO*AO)/(AREA*N)  = U 

STD 

2,24(2,0) 

STORE  U (VELOCITY) 

MDR 

2,2 

F 2 <=  U**2 

LOR 

6,0 

F 6 <=  1 + CHI 

no 

6 , KOMH 

F 6 <=  (KM  1 + CHI ) )/MH 

nD 

6, 0(0, 2) 

F6  <=  (KTM  1 + CHI  ) )/MH 

SDR 

6,2 

F 6 <=  (KTM  1 + CHI ) )/MH  - U**2 

nD 

2, DADS 

F 2 <=  DADS*U**2 

so 

2.G 

F 2 <=  DADS*U**2  - GS 

nD 

4, 0(2,0) 

F 4 <=  DCHI/DTM 

ADR 

4,0 

F4  <=  ( 1 + CHI  ) + DCHI/DTM 

nD 

4, KOMH 

F 4 <=  K/MH *F 4 ( 4 ) 

nD 

4, 0(3,0) 

F 4 <=  DT/DS*F4(4) 

SDR 

2,4 

F 2 <=  F2 ( * ) - F4 (♦ ) 

no 

2. 8(2.0) 

F 2 <=  F2(*)*N: 

F2  <=  N*(U**2*DA/DS  - DT/DS*K/MHM(1  + CHI)  + T*DCHI/DT)  - GS) 

DDR 

2.6 

F 2 <=  DN/DS 

STD 

2, 8(3,0) 

STORE  DN/DS 

MDR 

2,0 

F 2 <=  ( 1 + CHI )*DN/DS 

LD 

4, 0(2,0) 

F 4 <=  T 

nDR 

2,4 

F 2 <=  TM  1 + CHI  )*DN/DS 

SD 

4.TI0N 

F4  <=  T - T I 

nD 

4, DCHI 

F 4 <=  (T-TI)*DCHI/DT 

ADR 

4,0 

F 4 <=  (1  + CHI)  + (T-TI )*DCHI/DT 

LD 

0, 8(2,0) 

FO  <=  N 

MDR 

4,0 

F 4 <=  NM  1 + CHI  + ( T-T I )* DCHI/DT) 

MD 

4,  =D ' 1 . 5' 

F 4 <=  3/2  * F4(*) 

MD 

4, 0(3,0) 

F 4 <=  DT/DS  * F4U)  : 

120 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
PROM  COPY  FURNISHED  TO  DDC 


* F 4 <=  3/2*DT/DS*( 1+CHI  + ( T-T I ) *DCH I /DT ) 

* 


HIGHT 


SDR 

2.4 

F 2 <=  ( 1 + CHI  )*DN/OS*T  - F4(4) 

(ID 

2.24(2,0) 

F 2 <=  F 2 ( 6 ) * U 

HD 

2, KAY 

F2  <=  K * F2(4) 

HDR 

0.0 

FO  <=  N**2 

MD 

0.  CHI 

FO  <=  N**2  * CHI 

no 

0,  LUM 

FO  < = RADIATIVE  LOSSES 

SDR 

2.0 

F 2 <=  F 2 ( 4 ) - F 0 ( 4 ) 

LD 

0, 16(2,0) 

FO  <=  Q 

HD 

0, DADS 

FO  <=  Q/A*DA/DS 

SDR 

2,0 

F 2 <=  DQ/DS  LESS  SOURCE  TERM 

AD 

2.S0R 

F2  <=  DQ/DS 

STD 

2.16(3.0) 

STORE  DQ/DS 

Lfl 

14,12,12(13) 

GPR'S  RETURNED  TO  ORIGINAL  STATE 

MV  I 

12(13). X * F F * 

TELL  CALLING  PROGRAM  WE'RE  RETURNING 

BCR 

15,14 

RETURN 

SECTION  FOR  T , 65 
.LY  IONIZED  CASE 

,536  NEXT  SECTION  DOES  SAME  CALCULATIONS 

LM 

3 , 4 , 8 ( 1) 

FPR'S  3C4  <=  BASE  ADDR'S  OF  DY  E AO 

MV  C 

0KAP+16( 16) , 

=X '41 100000000000000000000000000000' 

CHI  <=  1 E DCHI  <=  0 

LTR 

3.  3 

CHECK  IF  3 NEGATIVE  IF  SO  IS  LAST 

BM 

TABL 

PARAMETER  - GOTO  TABL 

MD 

0. 16(2,0) 

FO  <=  Q/KAPPA 

L COR 

0,0 

FO  <=  -Q/KAPPA  = DT/OS 

STD 

0. 0(3.0) 

STORE  DT/DS 

LD 

2. 0(4.0) 

F 2 <=  AO  = NO*UO*AO 

LD 

4, AREA 

F 4 <=  AREA 

MD 

4, 8(2.0) 

F 4 <=  AREA*N 

DDR 

2,4 

F2  <=  (NO*UO*AO)/(AREA*N)  = U 

STD 

2.24(2.0) 

STORE  U (VELOCITY) 

MOR 

2.2 

F 2 <=  U**2 

LDR 

6,0 

F 6 <=  DT/DS 

LD 

4.K0MH2 

F 4 <=  2K/MH 

MDR 

6.4 

F 6 <=  2K/MH *DT/DS 

MD 

4. 0(2,0) 

F 4 <=  2KT/MH 

SDR 

4,2 

F 4 <=  2KT/MH  - U**2 

MD 

2, DADS 

FS  <=  U**2/A*0A/DS 

SDR 

2.6 

F 2 <=  U**2/A*DA/0S  - 2K/MH*DT/DS 

SO 

2.  G 

F 2 <=  F 2 (4 ) - G 

LD 

6. 8(2,0) 

F 6 <=  N 

MDR 

2,6 

F 2 <=  F 2 ( 4 ) * N 

DOR 

2,4 

F2  <=  DN/DS 

STD 

2, 8(3.0) 

STORE  DN/DS 

MDR 

0,6 

FO  <=N-*DT/DS 

LDR 

4,0 

THIS  AND  THE  NEXT  TWO  INSTRUCTIONS 

ADR 

0,0 

EFFECTIVELY  MULTIPLY  FO  BY  3.  ' 

ADR 

0.4 

FO  <=  3N  * DT/DS 

MD 

2. 0(2,0) 

F 2 <=  ON/DSM 

ADR 

2,2 

F 2 <=  2T*DN/DS 

SDR 

2,0 

F 2 <=  2T*0N/0S  - 3N*DT/0S 

MD 

2. KAY 

F 2 <=  K*(2T*DN/DS  - 3N*DT/DS) 

MD 

2.24(2,0) 

F 2 <=  K*UM2T*DN/DS  - 3N*0T/DS) 

MDR 

6.6 

F 6 <=  N**2 

MD 

6,  LUM 

F 6 <=  RADIATIVE  LOSSES 

SDR 

2.6 

F 2 <=  F 2 ( 4 ) - F 6(4) 

LD 

4, 16(2.0) 

F 4 <=  Q 

MD 

4, DADS 

F 4 <=  Q/A*DA/DS 

SDR 

2,4 

F 2 <=  DQ/DS  LESS  SOURCE  TERM 

AD 

2.S0R 

F 2 <=  DQ/DS 

STD 

2, 16(3.0) 

STORE  DQ/DS 

LM 

14,12,12(13) 

GPR'S  RETURNED  TO  ORIGINAL  STATE 

MV  I 

1 2 ( 13) ,X  1 F F ' 

TELL  CALLING  PROGRAM  WE'RE  RETURNING 

BR 

14 

RETURN 

RETURN  INTERPOLATED  FUNCTION  VALUES  - NOT  DERIVITIVES 
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TABL 

nvc 

0(64, 3), G 

PUT  INTERPOLATED 

VALUES  IN  TAB 

LM 

14, 12.12(13) 

RESTORE  GPR'S 

nvi 

12(13 ).X'FF' 

INDICATE  CONTROL 

RETURNED 

BR 

14 

RETURN 

* CASE  OF  S OR  T OUTSIDE  OF  THE  TABULATED  RANGE 


BADS 

LD 

0, 0(2,0)  FO  <=  OFFENDING  QUANTITY  ( 

LNDR 

0,0  FO  NOU  NEGATIVE 

STD 

0, 0(2,0)  STORE  OFFENDING  QUANTITY  - 

LM 

14,12,12(13)  GPR'S  RETURNED  TO  ORIGINAL 

LA 

15,4  GPR  14  <=  4 (RETURN  1) 

MV  I 

12(13), X'FF'  TELL  CALLING  PROGRAM  UE'RE 

BR 

14 

• 

CNOP 

4,8 

* STORAGE  FOR 

* 

ADDR'S.  CONSTANTS,  AND  INTERNAL  VARIABLES 

GADDR 

OC 

X'OOOOOOOO' 

DADDR 

DC 

X'00000000' 

SADDR 

DC 

X'OOOOOOOO' 

AADDR 

OC 

X'00000000' 

KAODR 

DC 

X'OOOOOOOO' 

LADDR 

DC 

X'OOOOOOOO' 

CADDR 

DC 

X'OOOOOOOO' 

DCODR 

DC 

X'OOOOOOOO' 

SDISP 

DC 

X'000047t0' 

TDISP 

DC 

X'00004410' 

TBND 

DC 

X '00000330 ' 

SBND 

DC 

X '00000  330 ' 

HBYTE 

DC 

X'00000  778' 

UM3 

DC 

X'0000000000000000' 

uni 

OC 

X'0000000000000000' 

UP  1 

OC 

X'0000000000000000' 

UP3 

DC 

X'0000000000000000' 

G 

OC 

X'0000000000000000' 

DADS 

DC 

X'0000000000000000' 

SOR 

DC 

X'0000000000000000' 

AREA 

DC 

X'0000000000000000' 

OKAP 

DC 

X'0000000000000000' 

LUM 

DC 

X'0000000000000000' 

CHI 

OC 

X'0000000000000000' 

DCHI 

OC 

X'0000000000000000' 

TION 

DC 

X'45198C6100000000' 

KAY 

OC 

X'339F2CB600000000' 

KOMH 

OC 

X'474EAB1B00000000' 

KOMH2 

DC 

X'479D5A 36 00000000' 

FLOAT 

DC 

X'4000000000000000' 

END 

FLAG 
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